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Abstract 


The  Project  SiJE  System  Language  was  designed  to  facilitate 
the  writing  of  a  complete  operating  system  for  the  IBM 
System/360  family  of  computers.  The  criteria  used  for  the 
design  of  the  System  Language  were:  (a)  it  must  facilitate  nicely 
structured  programs  and  data;  (b)  it  must  be  readable;  (c)  it 
must  actively  assist  in  the  detection  and  isolation  of  errors; 
Id)  it  must  be  compilable  into  efficient  code;  (e)  it  must  allow 
the  programmer  precise  ccntrcl  over  the  instructions  emitted  and 
the  storage  allocated;  (f)  it  must  be  easily  modifiable;  (g)  it 
must  have  an  efficient  comuiler;  and  (h)  it  must  be  easily 
i npleae ntabie . 

This  manual  describes  in  detail  both  the  syntax  and 
semantics  of  the  language.  The  restrictions  imposed  by  the 
existing  two  compilers,  one  emitting  S/360  object  code  and  the 
other  emitting  PDP-11  object  code,  are  also  documented. 
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CHAPTEP.  1 
IMTEOpnCTIOH. 

The  purpose  of  this  iranual  is  tc  serve  as  a  reference  to 
those  who  are  usinq  {cr  who  are  about  to  use)  the  Project  SUE 
System  Lanquaqe  and  its  compilers. 

1.1.  Project  SUE. 

Project  SUE  was  established  in  the  spring  of  1971  tc  build 
an  extensible  time-sharinq  operating  system  for  the  IBM 
Systsia/360  series  of  computers.  Technical  details  cn  the 
project  are  available  in  [Atwood  72a^  Holt  72,  Grushcow  72, 
Clark  72,  Atwood  72b,  Sevcik  72a,  Sevcik  72b,  Holt  73, 
Tsichritzis  741. 

The  Project  SUE  Systen  Language  was  designed  as  a  tool  -for 
i splementinq  the  proposed  operating  system.  Details  of  the 
lanquaqe  design  are  available  in  [Clark  71a,  Clark  71b], 

There  are  two  compilers  for  the  System  Language,  One 
cc-apiler  is  called  SUE/360  and  generates  System/SoO  object  code. 
The  other  compiler  is  called  SOE/I 1  and  generates  PDP/11  object 
code.  Both  compilers  run  on  the  Systeffl/360  (or  System/370)  and 
are  written  in  BPL  (an  extension  of  XPL)  f McKeeman 70  ] ,  The 
subset  of  the  language  which  is  suppcrted  by  both  compilers  is 
called  the  Machine  Independent  Subset;  this  subset  is  summarized 
in  APPENDIX  V,  Throughout  this  document  we  identify  those 
constructs  which  are  in  the  Machine  Independent  Subset. 

Some  features  of  the  System  Language  have  not  been 
implemented.  For  example,  multiple  returned  values  from 
procedures  and  procedures  names  passed  as  parameters  are  not 
implemented.  As  well,  hardware  limitations  on  each  machine 
caused  some  restrictions  on  the  language.  Examples  of  such 
hardware  restricticns  include  limits  on  allowable  ranges  of 
integer  values  and  on  lengths  of  character  strings.  These 
restrictions  are  explained  in  appropriate  sections  of  this 
manual. 

The  System  Language  permits  machine  dependent  control  over 
code  emission  and  memory  allocation.  These  features  were 
designed  to  anticipate  the  reguiraments  of  persons  implementing 
operating  systems.  Their  use  reguires  an  intimate  knowledge  of 
both  the  bare  machine  and  the  cods  generation  policies  cf  the 
compiler.  These  features  should  be  regarded  as  an  agreement 
between  the  programmer  and  the  compiler  writer,  and  should  be 
avoided  by  users  who  are  unfamiliar  with  the  SUE  code  generation 
conventions.  These  features  include  the  luliue  pseudo¬ 
procedure,  the  typed  modifier,  the  absolute  and  aligned 
attributes,  and  the  group  structure. 
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1,2. _ S3i;s tea _ lanc[uaqe  I  apleaenta  tior.  and  PociimeRtation  . 

Both  Systea  Lanquaqe  compilers  accept  a  compressed  source 
form  produced  by  a  prepass  proqraa  called  SCRUdCH,  This  prepass 
proqram  was  written  by  Harvey  Gordon  in  the  summer  of  1971,  and 
maintained  by  him  durinq  the  winter  of  1971-72,  Additional 
maintenance  was  performed  by  Jim  Cordy  in  the  summer  of  1972. 

The  initial  version  of  the  SUE/360  compiler  was  written  by 
Brian  Clark  in  the  sprinq  and  su mmer  of  1972,  Details  on 
SDE/360  appear  in  f Atwccd  72a,  Clark  71bl,  Maintenance  on 
SDE/360  was  done  by  Clark  until  the  summer  of  1973,  when  it  was 
taken  over  by  Frank  Ham  and  Henri  Arnaud.  The  SUE/380  compiler 
has  been  used  at  the  University  of  Toronto  by  Proqect  SUE, 
Project  ED  {to  write  a  PL/I  subset  compiler  called  SP/k) , 
qraduate  students,  and  advanced  undergraduate  courses  in  data 
structures  and  compiler  writing. 

The  SUE/11  compiler,  which  was  based  on  the  SUE/360 
compiler,  was  written  by  Gabor  Kalmar  in  the  summer  and  fall  of 
1972,  Details  on  SUE/11  appear  in  f  7  3],  The  SUE/11 
compiler  was  largely  unmaintained  until  the  summer  of  1973,  when 
Frank  Ham  and  Henri  Arnaud  took  it  over.  The  compiler  has  been 
used  at  the  University  of  Toronto  by  courses  in  operating 
systems  and  by  qraduate  students, 

■The  first  version  of  this  material  was  written  in  September 
1372  to  replace  internal  Project  SUE  documentation  on  the  System 
language.  The  original  guide  has  been  supplemented  by  examples, 
programming  notes,  appendices,  etc,,  gathered  with  the  help  of 
Pvic  Holt,  Frank  Ham,  Dave  Wortman,  Henri  Arnaud,  Jim  Horning, 
and  others. 

This  manual  assumes  the  reader  has  a  knowledge  of  Eackus- 
Naur  Form  {ENF)  and  of  at  least  one  high-level  block-structured 
language  {such  as  Algol  or  Pl/I) ,  A  knowledge  of  Pascal  [  Uirth 
711  would  be  extremely  valuable,  We  have  taught  the  System 
Lanquaqe  to  third-year  Computer  Science  undergraduates  by 
supplementing  this  manual  with  five  or  six  hours  of  lectures. 
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_ Example  Systerc  Language  Program. 

DATA  MAIN;  . 


* 


* 

* 

* 

* 


A  PSOGSAM  TO  GENERATE  ALL  CONFIGURATIONS  OF  N 
ON  A  CHESSBOARD  OF  N  *  N  SQUARES  SUCH  THAT  NO 
CAN  TAKE  ANY  OF  THE  OTHERS; 

NOTE  THAT  NO  RON,  COLOHN,  DP  OR  DOWN  DIAGONAL 
CONTAIN  MORE  THAN  ONE  QUEEN; 


QUEENS  * 
QUEEN  ^ 

CAN  - 


THE  VECTOR  CONFIGURATION  IS  USED  SO  THAT  CONFIGU¬ 


RATION  (!)  IS  THE  NUMBER  OF  THE  COLUMN  OCCUPIED  EY  - 
THE  QUEEN  IN  THE  ITH  RON; 

ON  AN  UPWARD  DIAGONAL  DIFFERENCE  BETWEEN  ROW  AND  - 

COLUMN  COORDINATES  IS  CONSTANT,  ON  A  DOWNWARD  DIAGC-  - 


NAL  THE  SUM  IS  CONSTANT.  THIS  IS  USED  IN  INDEXING 
THE  VECTORS  WHICH  INDICATE  WHETHER  DIAGONALS  ARE  - 

OCCUPIED;  -/ 


REFER ENCE: STRUCTURED  PROGRAMMING,  DAHL,  DIJKSTHA  AND  - 
*  HO  ARE,  ACADEMIC  PRESS  ' 


CONSTANT  NUMBER_TO_PIACE  =  7;  ZERO  INDEXING  ’i'/ 

TYPE  PIACE’MENT  =  {0  TC  NU  M3SR_TO_P  I  ACE)  ; 

DECLARE 

PLACEMENT  (  NUM E EB_P LACED)  , 

ARRAY  (PLACEMENT)  OF 
(PLACEMENT)  (CO NFIG UR AT  10 N)  , 

ARRAY  (PLACEMENT)  OF  BOOLEAN  (COLUMN), 

ARRAY  (  (-  NUMBEH_TO_PLACE  TC  NUMBER_TO_PLACE)  ) 

OF  BOOLEAN  (UP)  , 

ARRAY  (  (0  TO  2  *  HO M3ER_T0_PL AC E) )  OF  BOOLEAN  (DOWN) 
DECLARE 

PROCEDURE  (GENERATE) ; 


DATA  GENERATE; 


PROGRAM  GENERATE; 

MACRO  SQDAHE_FRES  (ROW_#,  COLOMN_#); 

COLUMN  (COLDMN_#)  £  DP(ROW_#  -  COLOMN_#) 
&  DGWN{ROW_#  +  COLUMN_#) 

END  MACRO; 

MACRO  SET_QUEEN_ON_SCUARE  (HOW_#,  COLUMN_#)  ; 
CONFIGURATION (SCW_#)  :=  COLDMN_#; 

COLUMN  (COLUMN_#)  ;=  FALSE; 

DP{ROW_#  -  COLUMN_#)  :=  FALSE; 
DOWN{ROW_4  +  COLDMN_#)  :=  FALSE 
END  MACRO; 

MACRO  PRINT^CONFIGUS ATION ; 

B  £  G  I N 

DECLARE 

PLACEMENT  (I)  ; 


r 

O 


DO  I  :=  0  TO  Nni^BEH_TC_PLACE*, 

rUT_IMTEG  EH  (CONFIGURATION (I)  ) 

END 

END; 

P  U  C  Fi  A  R  A  C I  E  R  (  N  F  U  _  L I M  S  3 
END  MACRO; 

MACHO  EEKOVE„QaEZN_EBOM_SQOASE  (EOW_#,  COLUMN__#); 
DOwN(EOS_#  +  COLUMN_#)  :=  TBUE; 

UP(HOW_#  -  COLDKN_#)  :=  TRUE; 

COLUMN  (COLUMN_#)  :=  TRUE; 

END  MACRO; 

DECLASS 

PLACEMENT  (I)  ; 

DO  I  :=  0  TO  NUMBEH_TO_PLACE; 

IF  SQUAaE_EaSE  (NDMa5H_?LACED,  I); 

TEEN:  SST_QUEEN_ON_SQDAHE  (NUMBEH_PLACED,  I); 

IF  NO a BE a_ PL AC ED  =  NUMBEH_TO_PL ACE ; 

THEN:  PHINI_CONFIGUEATION ; 

ELSE:  NUMEER_?LACED  :=  NUMBEH_PL ACED  +  1; 
GENERATE ; 

NUM3EB_FLACED  :=  NUMBER_?L ACED  -  1 

END; 

REMOV E_QUEEN_FROa_SQUAEE  {NUMBER_PLACED  ,  I) 

END 

EN  D  ; 

„  l_ 

PROGRAM  MAIN; 

MACRO  INITIALIZS_COLUMNS : 

BEGIN 

DECLARE 

PLACEMENT  (I)  ; 

DO  I  0  TO  NUaBEB_TO_PlACE; 

CCLUMNd)  :=  TRUE 

END 

END 

END  MACRO; 

MACRO  INITIALIZS_UP_AND_EOWN_DI AGONALS; 

BEGIN 

DECLARE 

(0  TO  2  ^  NUMBER_TO_PLACE)  (I) ; 

DO  I  :=  0  TC  2  ^  NUMBEa_TO_PLACE; 

UP  (I  -  NnE3EH_TO_PLACE)  ;=  TRUE; 

DC UN  (I)  :=  TRUE 

END 

END 

END  MACRO; 

/-^'  INITIALIZE  EMPTI  ECARD  */ 

INITIALIZE_COLUMNS ; 

INITIALIZE_DP_AND_DCNN_DIAGOMALS ; 

NUrl3EH_P LACED  0; 

GENERATE; 
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CHA^T_3J_2 

OF  THE  SYSTEM  LANGUAGE. 

Proiect  SUE  has  been  strongly  influenced  by  Dijkstra’s 
method  of  constructing  programs  by  successive  refinsment.  The 
magor  structuring  tools  provided  for  such  refinements  are 
procedures  and  macros.  Since  information  is  often  shared  among 
two  or  more  entities,  we  adopted  a  block  structure  and  scope 
rules  more  similar  to  Algol  60  than  to  the  unstructured 
«EXTSSNAL'’  of  PL/I. 


2.1.-  Compilation  Structures. 

The  System  language  is  designed  to  facilitate  separate 
compilation  of  hierarchically  .  related  programs.  The 
hierarchical  relationship  among  procedures  and  macros  is 
explicitly  expressed  in  the  programs,  and  is  managed  by  the 
compiler.  A  system  of  programs  consists  of  one  or  acre 
ccmpilatioE  blocks,  and  may  be  submitted  to  the  compiler  in  one 
or  more  batches.  Each  batch  consists  of  one  or  more  compilation 
blocks  each  terminated  by  the  symbol  A  compilation  block 
may  be  a  ^ta  ,  program  ,  or  c ontext  block.  The  rules  for 
submitting  compilation  blocks  to  the  System  Language  compilers 
are  described  in  APPENDIX  I. 


A  procedure  declaration  contains  only  the  information 
required  to  compile  and  type-check  calls  cn  the  procedure  -  the 
types  of  its  parameters  and  return  value  (if  any) ,  and  its  name. 
Each  procedure  has  a  data  block  which  contains  information 
shared  by  any  local  procedure.  Specifically,  any  parameters  or 
return  values  are  named,  and  local  procedures,  ccmraon  variables, 
types,  and  macros  are  declared.  Each  procedure  also  has  a 
cro-qraa--  block,  which  contains  its  executable  code  and  purely 
local  declarations, 

A  context  block  provides  an  environment  in  which  programs 
may  be  compiled.  Specifically,  they  contain  definitions  of 
constants,  types,  macros,  and  absolute  memory  locations.  Their 
contents  are  purely  compile-time:  procedures  and  variables  may 
net  be  declared. 
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2,2o  Data  Stractargs. 

System  Lanquaqe  data  structures  mere  closely  resemble  those 
cf  Pascal  than  these  cf  most  ’’systems*'  languages.  Data  types 
are  characterized  net  only  by  their  storage  rep  rase ntaticn  and 
the  names  of  their  constants  (i.e.,  the  form  in  which  they  are 
written) ,  but  also  by  the  valid  operations  (including 
assignment)  which  are  defined  for  them.  Haphazard  mixing  of 
types  is  not  permitted:  when  there  is  no  logical  relation 
between  values  of  different  types  that  happen  to  have  similar 
storage  representations,  the  compiler  detects  mixing  of  such 
types  to  be  violations  cf  type  restrictions.  A  complete  set  of 
type-checking  rules  enforced  by  the  compiler  appears  in  APPENDIX 
II. 

The  use  of  any  variable  must  be  preceded  by  a  variable 
declaration  which  associates  that  variable  with  a  data  type. 
The  data  types  may  be  either  directly  described  in  the  variable 
declaration,  or  referenced  by  a  type  identifier,  in  which  case 
this  identifier  must  have  been  described  by  an  explicit  t yoe 
definition. 

The  basic  System  Language  data  types  are  the  index  tvoes. 
Their  sets  of  values  are  ordered.  Two  pre-defined  classes  of 
index  types  exist  in  the  System  Language:  bit  and  character 
(whose  values  are  denoted  by  numbers  and  quoted  strings 
respectively) .  The  programmer  may  define  his  own  index  types  in 
the  System  Language  by  specifying  a  list  of  identifiers,  each  of 
which  is  a  constant  standing  for  a  value  of  the  type. 

An  index  type  may  also  be  defined  as  a  sub  range  of  another 
index  type  by  indicating  the  smallest  and  the  largest  value  of 
the  subrange. 

Structured  types  are  defined  by  defining  the  types  cf  their 
cemponents,  and  by  indicating  the  structuring  method.  In  the 
System  Language  there  are  four  structuring  methods  available: 
array  structure,  record  structure,  pewerset  structure,  and  group 
structure. 

In  an  array  structure,  all  components  are  of  the  sane  type. 
An  array  type  is  defined  by  specifying  both  the  component  type 
and  an  index  type.  Components  are  selected  by  a  ccmputable 
index,  and  the  index  type  defines  the  set  of  allowed  values 
which  a  selector  may  have. 

In  a  record  structure,  the  components  (called  fields)  are 
not  necessarily  of  the  same  type.  A  record  type  is  defined  by 
specifying  an  ordered,  named  list  of  types.  Components  are 
selected  by  specifying  the  identifier  which  names  the  desired 
component  tyce. 

A  record  structure  may  have  a  variable  format,  indicated  by 
several  alternatives  field  lists,  and  preceeded  by  a  tag  field. 


The  taq  field  is  a  variable  of  any  index  type,,  and  each 
alternative  is  labelled  by  one  or  more  constants  of  the  index 
type.  In  this  way,  the  value  of  the  taq  field  defines  the 

particular  format  in  use, 

A  powerset  structure  defines  a  set  of  values  which  is  the 

set  of  all  subsets  of  its  base  type,  A  powerset _ tv  pe  is  defined 

by  specifyinq  an  index  type  which  is  rhe  base  -  type  of  the 

powerset. 


A  group  strucrura  is  analogous  to  a  record  structure, 
except  that  special  storage  packing  rules  apply  to  fields  of  a 
group.  Also,  a  specified  type  is  associated  with  the  structure 
as  a  whole.  Thus,  groups  are  very  machine-dependent,  and  are 
used  for  such  applications  as  defining  a  machine-dependent  data 
structure  {like  a  Program  Status  Word) . 

The  group  type  is  a  sharp  contrast  to  the  record  and  array 
types.  Use  of  an  unqualified  group  identifier  yields  a  value  of 
the  specified  overall  type,  whereas  use  of  an  unqualified  record 
or  array  variable  yields  an  ordered  list  of  values.  The  latter 
parallels  the  well-known  mathematical  notion  of  a  vector,  or  n- 
tuple  (abbreviated  to  tuple  in  the  System  Language  vocabulary) . 
Note:  The  group  type  is  extremely  machine-dependent,  and  should 
be  avoided. 

Indirection  is  a  key  feature  in  many  programming 
applications.  The  System  Language  does  not  contain  a  type 
pcinter-:  rather,  pointer  to  any  type  is  another  type.  Thus, 
when  a  pointer  value  is  dereferenced,  the  compiler  knows  the 
resulting  type  and  can  ensure  that  type  restrictions  are 
enforced.  Further,  the  compiler  can  decide  by  contexr  when  a 
pointer  value  must  be  dereferenced  or  created.  A  complete 
description  of  the  System  Language  provisions  for  automatic  and 
explicit  pointer  management  appears  in  APPENDIX  III. 

A  procedure  type  represents  the  class  of  computable 
mappings  specified  by  a  list  of  domain  and  range  types.  Both 
the  domain  and  range  may  be  empty;  when  they  are  present  they 
specify  the  types  of  the  parameters  and  the  returned  values. 


!C 


2j^3j^ _ Control  Structures. 

The  set  of  control  stractures  chosen  for  the  System 
Lanquaqe  reflects  Prcject  SUE  philosophy,  A  rather  parsimonicus 
set  was  chosen  for  ccnvenienca  and  efficiency,  guided  by  the 
requirement  that  programs  in  the  System  Language  must  clearly 
exhibit  their  control  structure  and  be  amenable  to  proof  of 
logical  correctness. 

The  fundamental  control  structure  in  the  System  Language  is 
the  tUDie ,  A  tuple  is  an  ordered  list  of  expressions  (possibly 
involving  assignments)  separated  by  commas.  Its  inclusion  in 
the  System  Language  allows  the  unification  of  parameter  lists, 
subscript  lists,  return  lists  and  do  control  lists. 
Syntactically,  it  may  appear  in  any  context  requiring  an 
expression;  however,  this  is  much  too  general  for  Project  SUE 
needs.  The  rather  severe  semantic  restrictions  on  usage  of 
tuples  will  be  described  in  CuAPTSS  3. 

The  assignment  cperatcr  is  treated  as  a  binary  operator, 
with  the  usual  side-effect,  whose  value  is  its  right  operand. 
The  other  infix  operators  are  classified  as  arithmetic, 
character.  Boolean,  set,  and  relational.  As  well,  there  are 
seme  prefix  operators  (written  in  functional  form)  for  the 
built-in  and  user-defined  functions,  and  a  postfix  operator  for 
explicit  dereferencing  of  pointer  values. 

A  statement  list  is  a  list  of  statements  separated  by 
semicolons.  So-called  simple  statements  consist  of  assignments 
or  procedure  calls.  They  are  the  building  blocks  of  the 
structured  statements,  which  specify  sequential,  selective  or 
repeated  execution  of  their  components.  Also,  escape  statements 
may  be  used  to  terminate  or  restart  execution  of  some  structured 
Etatements  (or  procedures) ,  without  permitting  the  deadly 
generality  of  the  go  to . 

The  case  selector  allows  conditional  selection  of  one  of  a 
list  of  alternatives  which  follow.  Each  alternative  is  a 
statement  list,  labelled  by  one  or  more  constants,  or  by  else . 
Selection  is  governed  by  the  value  of  the  tag  expression  of  tne 
case  selector.  Since  boolean  selections  are  common,  is 
included  as  a  synonym  for  a  boolean  case  selection. 

Compounds  may  be  used  for  iterative  or  sequential  execution 
of  a  list  of  statements.  The  cycle  compound  produces  unbounded 
repetition;  the  do  compound  produces  bounded  repetition  governed 
by  the  iteration  control.  The  begin  compennd  may  contain  a  new 
level  of  scope,  in  which  new  symbols  may  be  defined  for  the 
duration  of  the  compound,  A  compound  may  optionally  be 
labelled,  and  may  optionally  return  a  value. 

Normal  execution  of  compounds  may  be  terminated  in  three 
ways:  by  executing  the  final  statement  in  a  begin  compound,  by 
exhausting  the  iteration  control  of  a  do  compound,  or  by 


..  I  ' 


hM:  .  yK 


th^  ■'itjH'i 


I  tX 


f.t  .,v  . .  ■■  ■■ 

-«-ib 

'W'; ■‘ii,?' 


.  ■  '■■■■"  •■^■■■•■'■-  '  ■-‘.v'  c-'i-  '  ■ '  . 

'''i '  r- ’■' 

|e">  src  •: 

■  ..V'  1'  ;  :.■  ...  1. 


\  ^  !•  < 


■  rif  ■-  ' 


■'  :  Vi.V  '  ■ 


f*', 


-•-1  .  I 


:>  .; 


■:f^ 

,'/  ■ 


,  .  w  .,i  './X  '  ■  'ir 


,  r  ..  .•  .’’••'■■I.  , 


...  .*:.  'J'  ,' 


...?,(5  ■; 


m 


■  4- 

■. '  '  *,.ii  M?.'  '  ■'  y  .f  'j 

;.^  Pix-i:  «  i ..  i  .  .;7  *i 

'  ■<  '>J 


i* 


-4 


^  .  . 


(._  ■ 

T  ^  .  ,*,.  A-r. 


■-.-,  ^v  •'  '''  ■' V  •?. 


t  -•  ...  4. 


-  ■■I 


L- 


1  '  ; 

^  I ♦ r • * 


■'  u  '1^  •X4 

....  .  -.a.  /,  .**.  A 


.  ^  ■ 

.  .15^ 

',Pl 

r:'j  -  ' 

>  *' 

■■  ;•  C: 

’’’  '.  ''• 

.  ^ 

< 

.  ;Vii->:  ^  ' 

J  *■  ;  i-;_ 

f.  ;  .  :’, 

7  -  > 

$  f-;  '  -■  -(  *y 

V  ■ 

<  '..’ 

'  --j 

'--  •••  hm  .  ' 

-1 

■  “'>y^  ■->■'■' 

'•  S' 

:  (p  i  ■■■ 

■■'  r.U^O. 

■ .  '4 

.■I:.  ■■:)-■ 

. .,  'i.  '  i  '■  .'  . 

"-1 

'r  r-:: 

•  .-i !  '  ; 

-  vfr.;,'Av;  ■'» 

'(VC  '  ' 

,»■ 

1  . 

■  *  <  * 

...■ : .?  ,i.K  .:  ■'■• ’V 

■: 

..  •■*'  ' 

.  ' 

4  *• . 

.  ?;■■  !,  f. 

V  r\ 

'■ 

'•  ■■.■'' 

'  V  f^'- 

M,  ■  r',  v'  ^  ''' 

..S’  V; 

'.fCr  M; 

■ .  ■  >•  /'  ’•  -'iV* 

/  '  .  .... 

;  .:ap  .'  'V  i  ij 

‘  '  ., 

■p 

*  , 

y;''  •  AW-..  -*>  >;' 

...  ^  '  j  ,.. 

'.'  -  > 

‘/a  '.■  ^ , 

'.'>l  .  ,,' 

,iv>  4' 

■  .  f|».  '  '-  ■  <  'V  t:  s^^^3^C 


A.^.«  omw-  .  •  . 


fafe 


.  / ''ST;''  ^ 

.4^;.^.;:..,.y,..,.iZii2:t?^^'l  *  ■ .  v4 

'  'i  '!.X  5  oiJQ -.v'' o  .1^  -Sc*/ 

:,p  X  .  J 


('■ 


"  .U  >  i  • 


\ 


,■  '■' ;' 


/  , 


.  ii 


executinq  an  escape  statement.  The  escape  return  specifies 
escape  from  an  enclcsinq  procedure,  exit  and  reoeat  from  an 
enclosinq  compound ^  otherwise,  they  are  analoqous.  when  no 
label  is  specified,  escape  is  from  the  closest  such  enclosinq 
structure.  Escapes  may  be  unconditional,  or  may  depend  upon 
satisfaction  _Iwhenl  cr  denial  ( unless)  of  a  condition,  and  they 
may  optionally  return  values  of  a  predeclared  type. 

The  System  Lanquaqe  offers  a  macro  facility  which  permits 
text  substitution  with  parameters,  but  no  compile-time 
computation.  h  macro  is  invoked  exactly  as  a  procedure:  by  the 
appearance  of  its  name,  optionally  followed  by  a  parenthesized 
parameter  list. 
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CHAPTER_3 


FUNCTIONAL  SPECIFICATION  OF  THE  SYSTEil  LANGUAGE 


3  » 1 , Introduction  . 

The  purpose  of  this  chapter  is  tc  present  the  syntactic 
definition  (in  BNF)  of  the  System  Language,  and  no  explain  the 
semantic  and  implemantaticn-dependent  restrictions  imposed  by 
the  compilers.  Two  System  Language  compilers  exist,  both 
running  on  the  I3ri  System/SbO,  generating  input  for  the 
System/360  Linkage  editor.  One  version  generates  machine  code 
for  the  System/dSO*  the  ether  generates  machine  code  for  the 
PDP/1  1, 

Because  of  architectural  differences  between  these  two 
machines,  some  System  Language  constructs  exhibit  machine  and 
compiler  dependencies.  When  these  dependencies  prevent  correct 
execution  of  a  program  on  both  machines,  we  omit  the  problem 
constructs  from  our  working  subset  of  the  language,  APPENDIX  V 
contains  a  summary  of  our  ’Machine  Independent’  Subset  of  the 
System  Language,  As  well,  we  individually  document  the 
restrictions  imposed  by  the  compilers  for  each  construct. 
Finally,  we  indicate  which  constructs  are  expensive,  either  at 
compile-time  or  at  run-time,  on  either  compiler. 
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System  L anguage  Vc cab alary. 


Program  portions  which  are  parsed  by  the  System  language 
compiler  are  written  using  the  following  yocabulary. 

<yocabulary>  <letter> 

I  <diqit> 

I  <pseuao  letter> 
j  <3pecial  syiEbol> 
j  <reserv8d  word> 


<letter>  ::=aibjcjd|slfjg 

iE|ojp|q  |rjsj  t, 

1  $  j  # 

<diqit>  ::=0l1l2l3l4|5l&j7 
<pseudo  letter>  _ 


h 

u 


T_ 

V 


1  -1  k  I  1  I  a 

w  1  X  i  y  j  2 


3 


<special  syinbol>  :: 


3  -  J  / 


1  <J__J  i  ^  ]  i  ! 

,  I  >  3  :  1 


S 

5) 


<r^ 


-ryed  word> 


=  _i_  j  absolute  1  accepts  1  aligned 
3  area  1  array  1  assert  j  begin  |  bit 
case  1  character  |  constant  j  context 
cycle  I  data  ]  declare  ]  do  J  downto 
each  ]  else  1  end  j  exit  j  exits  1  fast 
from  i  group  J  handling  ]  if  I  interrupt 


macro  ]  mo( 


ot  i  open  1  point 


powerset  J  procedure  j  program 
record  ]  register  j  repeat  1  return 
returns  j  tag  1  then  )  to  ]  type  |  typed 
unless  1  whan  j  with  J  xor 


ComiBents  are  not  parsed  by  the  compiler;  they  are  removed 
from  the  token  stream  in  the  input  phase.  Their  syntax  is  as 
follows; 

<comment>  f<any  EECEIC  characters  not  including  -/ 
Eest ric tions; 

Comments  may  only  appear  at  the  end  of  a  paragraphed  line, 
cr  on  a  separate  sequence  cf  lines.  For  example,  comments  may 
appear  following  a  semicolon  which  specifies  the  end  of  a  line, 
but  not  in  the  middle  of  a  statement  which  fits  on  one  line. 
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3,3, _ Systea  Language  Tolcens, 

A  toke n  is  an  entity  vhich;  may  comprise  several  ccntigucus 
input  characters  (possibly  overlappinq  card  boundaries),  but  is 
processed  by  the  parser  as  a  single  unit,  - 

<tokea>  <special  syffibol> 

1  <resarved  wcrd> 

!  <identifier> 

]  <nuabsr> 

I  <strinq> 


Special  syabcls  and  reserved  sords  have  been  defined  in 
Section  3,2,  Identifiers,  numbers,  and  strings  will  be  defined 
here . 


3,3.1,  Identifiers, 

<identifier>  iz-  <letter> 

}  <idsntifi€r>  <i9tter> 
j  <identifi6r>  <digit> 
j  <identifier>  <ps6udo  lettGr> 

Identifiers  may  be  used  as  names  for  variables,  procedures, 
types,  constants,  and  macros. 


Examples  of  valid  identifiers. 


Cclour 
3 value 
#_indices 
Parse  stacki 


Examples  of  invalid  identifiers, 

5th_word  first  character  may  not  be  a  digit  */ 

Parse  stack  no  embedded  blanks  allowed  -/ 

then  /*  then  is  a  reserved  word  */ 

Programming  Note. 

Identifiers  should  be  meaningful  to  the  reader  and  should 
net  be  terse  abbreviations, 

Bestrictions , 

Identifiers  may  not  be  the  same  as  any  reserved  word, 
may  not  exceed  254  characters  in  length. 
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3.3,2  Nuabers^ 

<DU3b8r>  ::=  <d8cimal  nuii:bcr> 
j  <bit  s trinq> 


3.3, 2.1.  Deciaal  Numbers. 


<decimal  r!umber>  ::=  <diqit> 

3  <dsci[iial  r.umbsr>  <diqit> 


3. 3, 2. 2.  Bit  Springs, 

<bit  strinq>  **  <bit  list>  ” 

<bit  list>  <haxadacimal  intagar> 

1  <bit  qroup> 

3  <bit  iist>  <bit  grou p> 

<bexadecimal  iiitaqar>  <h9xadacitr:al  diqit> 

j  <hGxadsciaal  inteqar>  <hexadeciaal  digit> 

<hGxadeciaal  digit>  ::=  <diqit>  j  A  i  E  |  C  ]  D  i  E  J  F 

<bit  qroiip>  <  <base>  )  [  sequence  cf  digits  } 

A  bit  group  is  a  sequence  of  digits,  each  of  which  must 
cccupy  no  more  bits  than  the  value  specified  by  the  preceding 
<base>.  The  bits  comprising  the  bit  groups  are  placed  adjacent 
to  each  other.  The  value  of  the  bit  list  is  right  justified. 
The  left  most  bit  group  may  have  its  bit  width  unspecified  since 
the  default  value  of  base  is  four. 

Hexadecimal  bit  strings  are  coded  either  by  omitting  the 
value  of  base  (example  2  below)  or  by  coding  a  base  cf  4 
(example  3  below) .  Octal  bit  strings  are  coded  with  a  base 
value  of  3  (example  4  below) .  Binary  bit  strings  are  coded  with 
a  base  value  of  1  (example  5  below) . 

Examples  of  valid  numbers. 

255 

•'FF'’ 

1.  ^4)  pyfi 

"(3)  7  (2)  33  (1)  r’ 

”  ( 1 )  11111111”, 

Each  of  the  above  has  the  same  internal  representation. 

Examples  of  invalid  numbers. 

2F3  /-  F  is  not  a  decimal  digit  */ 

’’FG”  /*  G  is  not  a  hexadecimal  digit  */ 

*^(3)9”  9  is  not  an  octal  digit  {base23  =  8)  -/ 
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5vstem/360  r es t rict ions « 

The  internal  representation  of  any  number  must  fit  in  32 

bits , 

PDP/11  restrictions. 

The  internal  representation  of  any  number  must  fit  in  16 

bits . 

Subset  Note. 

Bit  Strings  are  not  in  the  Machine  Independent 
decimal  numbers  are  preferred.  For  example,  if  '’ff'*  is 
tc  an  8-bit  byte,  the  PDP/11  value  will  be  -1, 

Systea/3 60  value  will  be  255, 


3.3,3,  Strings, 

<Etring>  *  <body  of  stringh  ^ 

<body  of  string/  ::=  <strinq  character/ 

I  <body  of  string/  <string  character/ 

<£tring  character/  {any  EBCDIC  character  other  than 


Subset ; 
assigned 
but  the 


The  length  of  a  string  equals  the  number  of  string 
characters  in  the  body  of  the  string. 

Examples  of  valid  strings. 

I  t 

*  A* 

*HOUSE» 

»DCN’’T  FOSGET  THE  DGUBIE  CUOTE’ 


The  lengths  of  the  above  strings  are  0,1,5,  and  29 
respect ively . 

Restrictions . 

The  number  of  characters  in  a  string  may  not  exceed  254. 


3.4.  Compilation  Blocks 


1,  <coia pila tion>  <data  na[ne>  ;  <data  bloc]c>  _1_ 

2,  i  <contsxt  name>  ;  <context  block> 

3,  1  <p!:cqraai  name>  ;  <scope  block>  _1_ 

The  coffipileu  will  accept,  as  a  batch,  one  or  more 
compilation  blocks.  See  APPENDIX  I  for  the  rales  for  ccaanizing 
ccmpilation  blocks  into  a  batch. 

The  function  of  each  compilation  block  was  discussed  in 
Section  2,1.  We  will  describe  the  fcrm  of  each. 


3.4.  1  Data  Blocks. - 

Each  procedure  must  have  a  data  block  and  a  program  blcck. 
The  data  block  names  the  parameters  and  returned  value  (if  any)  , 
declares  contained  procedures,  and  provides  definitions  and 
declarations  shared  by  those  contained  procedures.  The  syntax 
of  a  data  block  is  as  fcllcws: 

4.  <data  riaae>  ::=  <data  name  head>  <parameters>  <return£> 

5.  <data  name  head>  ::=  data  <identifisr> 

6.  <pararaeters>  (kidentifier  list>) 

7.  1  <empty> 

8.  <returns>  returns  (<identifier  list>) 

9.  :J  <efflpty> 

10.  <identifier  list>  <identifi9r> 

11.  I  <identifier  list>  ,  <identifier> 

19,  <data  blcck>  ::=  <definition>  ;  <data  block> 

20.  1  kempt 7 > 

The  identifier  cf  production  5  names  the  data  block. 
Except  for  the  first  data  block,  this  name  must  have  been 
declared  as  a  procedure  in  a  preceeding  data  block  cf  the 
current  batch;  if  parameter  types  or  return  types  were  specified 
at  that  time,  they  must  be  named  here,  via  productions  6  and  8. 
If  the  name  of  the  data  blcck  is  undefined,  two  rules  apply: 

1.  This  must  be  the  first  data  block  in  the  batch. 

2.  No  parameters  or  return  values  are  allowed. 

The  data  block  may  be  empty;  otherwise,  it  consists  of  a 
sequence  of  definitions,  each  terminated  by  a  semicolon. 

Programming.  .No te. 

If  a  procedure  declares  no  contained  procedures,  its  data 
block  should  be  empty.  Purely  local  definitions  should  appear 


in  proqraci  blocks. 


Res  trie t ions . 

At  post  one  returned  value  is  perroitted;  ho^wever,  it  cia^/  be 
a  structure,  (e.q.,  a  record,  or  an  array). 


3.4,2.  Proqraa  Blocks. 

89.  <prcqraffi  naEe>  ::=  preqram  <prccedure  identifier> 

A  proqraLa  block  must  be  preceded  by  a  data  block  or  the 
saaa  name.  It  provides  the  purely  local  definitions^  as  well  as 
the  executable  code,  for  a  procedure.  The  body  of  a  program 
block  is  a  scope  block,  which  is  described  in  Section  3.7.1. 


3,4,3.  Context  Blocks, 


84.  kcontext  naiiie>  ::=  context  <id£ntifier> 


65.  <context  blc.ck>.::=  kcontext  declaraticn> 

86.  J  kcontext  blcck>  ;  <context  declaraticn> 

87.  <context  declaration>  ::=  <template> 

88.  1  absolute  (<Rumber>) 

<declaration  type>  <idantifier> 

The  name  of  the  context  block  is  supplied  by  the  identifier 
in  production  84,  This  name  is  icnored  by  the  compilers.  The 
body  of  a  context  block  is  a  list  of  context  declarations 
separated  by  semicolons.  (Note  that  the  last  one  may  not  be 
followed  by  a  semicolon)  , 


Absolute  machine  locations  are  named  and  typed  by 
production  88,  Complete  description  of  templates  and 
declaration  types  are  provided  in  Section  3.5. 

Subset  Note. 

Persons  i mplem enti nq  eperatinq  systems  will  require  the 
absolute  definition  to  access  hardware-defined  memory. 
Otherwise,  this  feature  should  be  avoided. 


Programming  Note. 


Machine  dependent  constants,  types,  and  macros  should  be 
isolated  in  context  blocks.  This  allows  programs  to  be 
transferred  from  one  compiler  to  another  by  recoding  the  machine 
dependent  details  in  a  centext  block. 
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3,5^  Definitions, 

21,  <definition>  ;:=  <declai:at ion> 

22.  i  <teiriplate> 

2-3.  <declara tion>  declars  <declaration  item> 

24.  I  <declaratioR>  ,  <declai:ation  itea> 

25.  <deciaration  iteffl>  i z-  <declaration  ty p9> (<identif isr  list>) 

26.  <tGaplate>  ::=  <niacrc  head>  ;  <sacro  body>  end  macro 

27.  I  type  <idsntifier>  ==  <type> 

28.  1  constant  <identifier>  =  <tuple> 

29.  <macro  h€ad>  macro  <identifier>  <parameters> 

The  System  Lanquaqa  permits  definition  of  the  fcllowinq 
fear  kinds  of  symbols:  macros,  types,  constants,  and  variables. 

3.5. 1.  Macro  Definition. 

26,  <template>  z z-  <macrc  head>  ;  <macro  body>  end  macro 
29,  <macro  head>  ::=  macro  <identifier>  <parameters> 

6.  <parameters>  (tidentifier  li£t>) 

7,  I  <empty> 

The  definition  of  a  macro  provides  a  stream  of  tokens  which 
will  be  furnished  for  the  parser  by  the  input  phase  of  the 
compiler  whenever  the  macro  name  is  scanned.  That  is,  the  macro 
name  is  textually  replaced  by  its  macro  body.  If  formal 
parameters  are  declared  when  the  macro  is  defined  (via 
production  6) ,  cor responding  actual  parameters  must  be  supplied 
when  the  macro  is  invoked.  The  actual  parameters  are  textually 
substituted  for  the  formal  parameters  on  macro  invocation.  The 
invocation  is  triggered  by  the  appearance  of  the  macro  name, 
followed  by  parenthesired  actual  parameters  (if  any)  separated 
by  commas.  Any  string  of  text  (including  the  empty  string)  not 
including  cemaas  (except  those  ’’protected*’  within  balanced 
parentheses)  or  unbalanced  parentheses  may  be  passed  as  an 
actual  parameter. 

The  body  of  a  macro  may  contain  any  string  of  tokens  (or 
the  empty  string)  ether  than  the  tokens  end  macro.  (Note:  this 
prohibits  nesting  of  macro  definitions) .  Both  the  body  of  a 
macro  and  its  actual  parameters  may  involve  further  macro 
invocations:  however,  recursive  macro  calls  are  disallowed. 

Example  of  a  macro  - def initio n  and  its  i n vocation. 


macro  Push  (Value); 

if  Stack_top  >=  Stack_limit; 

then;  Error  {'stack  overflow’) ; 
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else:  Stack  (Stack_top:=  Stack_top  i- 1 )  :=  Value 

end 

end  nacro; 

Push  (Next_valu8__to_]:s_ stacked)  ; 


H-est  ric  tions  ^ 

As  a  warninq,  we  mention  that  macro  names  may  not  be 
redefined  in  a  contained  scope.  This  is  because  the  appearance 
of  the  macro  name  in  the  ccntext  of  a  new  definition  results  in 
the  expansion  of  the  macro,  not  in  the  redefinition  of  its  name. 

Programming  Note. 


Macros  should  be  used  only  when  they  are  small,  cr  when 
they  are  called  only  once.  Moreover,  they  should  only  be  used 
when  a  procedure  could  be  used  to  produce  the  same  effect. 

Efficiency  Note. 

Macro  bodies  are  stored  in  an  in-core  table,  and  are 
ccmpiled  in  line  whenever  the  macro  is  called.  Thus,  a  macro 
which  does  a  procedure  call  will  waste  space  each  time  it  is 
called.  Moreover,  comments  inside  macro  bodies  use  up 
considerable  macro  table  space,  and  can  cause  the  table  tc 
c  verf lo w. 


3.5,2,  -  Type  Definition. 

27.  <teiaplat9>  type  <identifier>  =  <type> 

Any  type  in  the  System  Language  may  be  named  in  a  type 
definition.  The  name  of  the  type  is  called  a  type  identifier, 
and  is  permitted  in  any  future  context  requiring  a  type. 

Examples  of  type  definitions. 

Type  Colour  =  (Bed,  Orange,  Yellow,  Green,. Blue) 
type  Curr9nt_decada  =  (1971  to  1980) 


3.5,3.  Constant  Definition. 

28,  <template>  constant  <id9ntifier>  =  <tupl9> 

Any  expression  whose  value  has  been  computed  by  the 
compiler  may  be  named  by  a  constant  definition.  The  constant 
identifier  is  then  permitted  in  any  context  which  allows  a 
constant;  indeed,  the  input  phase  of  the  compiler  replaces  the 
ccnstant  identifier  with  a  constant  token  possessing  the  correct 
value. 
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Examples  or  constant  definition. 

constant  Nuraber_of_dsviccS  =  3 
constant  C ur ren t_ year  =  1974 

constant  Fire_enqine__colcur  =  Red 
ccnstant  Last_letter  = 


Restrictions , 

1.  Only  1-tuples  are  permitted  in  constant  definitions, 

2.  The  only  operations  which  are  computed  at  compile  time  (if 
they  involve  constant  operands)  are  ,  /,  and  mod  (System  360 
only) , 

3.  Constant  names  may  not  be  redefined  in  a  contained  scope. 
This  is  because  the  appearance  of  the  constant  name  in  the 
context  of  a  new  definition  results  in  the  substitution  of  the 
name  by  its  value,  not  in  the  redefinition  of  the  name. 


3.5.4,  Variable  Definition, 

23,.  <declara tion>  declare  <declaration  itein> 

24,  1  <declaration>  ,  <declaration  iteni> 

25.  <declaration  item>  ::=  <declaration  type> (<identif ier  list>) 


System  Lanquaqs  variables  are  defined  in  declarations. 
Each  declaration  item  associates  a  declaration  type  with  one  or 
more  names.  Internally,  the  compiler  need  only  compute  a 
relocatable  address  for  each  variable;  all  other  memory  access 
information  (such  as  alignment  and  length)  have  been  associated 
with  the  declaration  type  as  it  was  processed. 

Examples  of  variable  definitions. 

declare 

(0  to  9)  {Decimal_digit)  , 

(Plus,  Times,  Minus,  Divide)  (Operator), 

(1939  to  1945)  ( War^year ,  Year), 

(’0^  to  ^9’)  (Decima l_character) 


3.5.5.  -  Compile-time  Efficiency  Note. 

The  System  Language  Compilers  have  four  compile-time  tables 
which  are  in-core,  and  have  fixed  sizes.  They  are:  the  String 
Table  (for  all  non-terminal  symbols  in  a  program) ,  the  Symbol 
Table  (for  declared  identifiers),  the  Type  Table  (for  type 
information)  ,  and  the  Macro  Table  (for  bodies  of  Macros)  , 
'Whenever  these  tables  overflow,  the  programmer  can  usually  get 
around  the  problem  by  realizing  that  table  space  is  freed  up 
whenever  a  scope  is  exited.  By  defining  everything  as  locally 
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3.6.  Types. 


System  Lanquaqs  data  types  are  characterized  not  cniy  by 
the  names  and  internal  representation  cf  their  ccnstants,  but  by 
the  allowed  operanicns  cn  their  values.  In  the  fcllowing 
sections,  we  will  concentrate  mainly  on  internal  representations 
and  imp lemen ta ticn  restrictions.  While  applicable  operation 
classes  may  be  indicated,  the  details  cf  type  compatibility  will 
he  delayed  until  discussion  of  expressions.  A  summary  of  the 
type  compatibility  rules  appears  in  APPENDIX  II. 


3,6,1.  Index  tyoes^ 


46. 

47. 

48. 

49. 

50. 


<index  type> 


bit  (<number>) 
character  (<number>) 
(<identifier  list>) 

(<e xpre ssion>  to  <expression>) 
{<expressio n>  to 


Index  types  are  the  scalar  types  of  the  System  Language. 
Iheir  prime  characteristics  are  that  their  values  are 
contiguous,  fixed  at  compile  time,  and  easy  to  manipulate  inside 
the  machine. 


3.6.  1.1,  Bit. 

Types  of  the  form  bit  (<nufflber>)  are  used  to  contain 
numeric  quantities  that  occupy  at  most  <number>  bits.  Variables 
of  this  type  are  aligned  on  a  power  cf  2  bit  boundary  computed 
by  rounding  <number>  up  to  the  next  power  of  2.  They  occupy  the 
right-most  <nufflber>  bits.  Unless  modified  by  the  aligned 
attribute  or  used  in  a  group  structure,  they  occupy  at  least  a 
byte  of  storage. 

Examples  of  bif  types. 

bit  (3)  occupies  the  right-most  3  bits  cf  a  byte. 

bit  (9)  occupies  the  right-most  9  bits  of  a  System/360  halfword 
{PDP/11  word). 

Systea/36Q  Restrictions. 

If  <nuraber>  is  greater  than  32,  arithmetic  cperations  are 
disallowed.  If  <number>  is  greater  than  64,  the  alignment  is 
relaxed  to  a  byte  boundary,  <nufflber>  must  not  be  greater  than 
2043  (256=^3)  . 

P  CP /11  Restrictions. 

If  <nuraber>  is  greater  than  16,  arithmetic  operations  are 
disallowed,  alignment  is  relaxed  to  a  byte  boundary,  and  only 


2^ 


equality  and  non-equality  ccinparisoc  ir:ay  be  performed. 

Subset  Note. 

Bit  is  not  in  the  Machine  Independent  Subset.  It  should  be 
used  only  to  control  storaqe  allocation.  For  example,  bit  (3)  is 
equivalent  to  (0  to  255)  on  the  System/360,  and  to  (-128  to  127) 
on  the  PDP/11.  One  should  use  a  subranqe  of  integers  whenever 
possible. 


3.6. 1.2.  Character. 

Types  of  the  form  character  (<number>)  are  used  to  contain 
string  quantities  that  occupy  at  most  <numbar>  bytes.  Values  of 
this  type  are  strings  of  characters  which  are  aligned  on  a  byte 
boundary,  and  are  left  -justified.  EBCDIC  codes  are  used  by 
SUE/3&0  while  SUS/1  1  may  use  either  the  EBCDIC  codas  or  the 
ASCII  codes  at  the  programmer’s  discretion  by  use  of  the  S 
toggle  (Section  3.7,7). 

Exa mples  of  character  types. 

character  (5) 
character (26 ) 

Svstem/36Q  Restrictions. 

<nuaber>  may  not  exceed  254. 

PEP/ 11  Restrictions. 

If  <number>  is  greater  than  one  the  character  string  may 
only  be  compared  for  equality  or  non-equality. 


3.6. 1.3.  Pr ograamer-de fined  Types. 

The  programmer  may  define  his  own  types  by  parenthesizing  a 
list  of  identifiers.  Each  identifier  becomes  a  constant  of  the 
type.  The  values  of  the  type  are  ordered  by  the  positions  of 
the  identifiers  in  the  defining  list.  Internal  values  are 
assigned  in  ascending  order  starting  from  zero,  and  the  base  2 
logarithm  of  the  largest  value  determines  the  number  of  bits 
required.  Alignment  is  calculated  from  this  maximum  number  of 
bits  using  the  same  algorithm  as  for  bit  types. 

Values  of  a  programmer-defined  type  may  be  compared  or 
assigned;  however,  they  are  not  numeric  and  may  not  participate 
in  arithmetic  operations. 

Examples  of  programmer-defined  types. 


(Bed,  Orange, 
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(Clubs,  Diacicrsds,  Haarts,  Spadss) 

(Disk,  Tapa,  Reader,  Printer,  Punch) 

Charact eri stic  Error^ 

In  many  contexts,  a  type  need  not  be  parenthesized.  If  a 
programmer  erroneously  parenthesizes  a  type  identifier,  the 
compiler  will  create  a  programmer-defined  type  with  one  constant 
in  it,  rather  than  producing  an  error  message.  For  example,  if 
Colour  is  defined  as 

type  Colour  =  (Red  , Orange, Yellow  , Green, Blue, Violet)  ^ 
and  Colour  is  used  as 

declare  (Colour) (X) ^  instead  of 

declare  Colour  (X)  ; 

in  an  enclosed  scope,  no  error  message  is  produced,  and  a  new 
type  with  one  constant.  Colour,  is  created  (probably  not  the 
programmer’s  inrenticn) . 


3,6. 1.4,  Subranges. 

49.  <index  type>  ::=  (<e xpression>  to  <expression>) 

50.  I  (<9xpression>tc*) 


A  contiguous  subrange  of  an  index  type  is  also  a  valid 
index  type.  It  is  defined  by  specifying  its  lower  and  upper 
values  respectively.  Syntactically,  we  permit  the  limits  of  the 
subrange  to  be  specified  by  expressions;  semantically,  we 
restrict  all  operations  in  the  expressions  to  those  which  yield 
constant  results.  We  do  not  translate  a  subrange  in  order  to 
minimize  the  number  of  bits  reguired  to  represent  its  values; 
ccnsequen tiy ,  the  constant  names,  their  internal 
representarions,  and  the  operations  defined  for  them  are  exactly 
those  of  the  containing  index  type. 

If  a  subrange  type  is  contained  in  the  range  (0  to  255)  for 
the  System/360,  or  (-128  to  127)  for  the  PDP/11,  a  byte  is 
allocated.  If  the  subrange  is  contained  in  the  range  (-32768  to 
32767),  16  bits  are  allocated.  If  the  subrange  is  not  contained 
in  the  range  (-32768  to  32767),  then  an  error  is  signalled. 

Examples  of  valid  subranges. 


(Bed-  to  Blue) 
(1970  to  1979) 
{-5  to  19) 
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txaiTiPles  of  invalia  subrancgs. 

{Red  to  4)  /*  Red  and  4  are  meiabers  cf  incompatible  types  -/ 

(1979  to  1970)  /*  sutrance  values  must  be  in  ascending  order  */ 

Svstem/3&G  Restrictions. 

The  only  operations  which  may  be  computed  at  compile  time 
are  /,  and  mod, 

PEP- 11  Restrictions. 

Only  ^  and  /  for  constant  operands  are  computed  at  compile 

time. 


3,6,2.  Declaration  Types, 


35, 
3  6, 
37. 


<declaration  typa>  : <brief  typa> 

i  area  <nuaber> 

1  procedure  <paraffl6ter  typs>  <return  typ9> 


39.  <brief  type> 

40. 

4  1. 

42. 

43, 


<coiBpcund  type  id€ntifier> 

<index  typ9> 

pointer  to  <identifier> 

powerset  of  <index  typa> 

array  {<index  list>)  of  <brief  typ9> 


System  Language  declaration  types  are  used  in  variable 
declaration.  They  include  index  types,  and  exclude  record  and 
group  types.  Brief  types  are  distinguished  members  of 
declaration  types  since  declarations  which  involve  them  cause 
storage  to  be  allocated  on  the  run-time  stack.  A  description  of 
each  declaration  type  follows. 


3.6. 

2- 1 .  -  A 

rray  T 

ypes. 

43. 

<brief 

t  ype> 

: : =  array 

(<index  list>) 

of  <brief  typG> 

56. 

57. 

<index 

lis  t> 

<indsx 
j  <index 

typs> 

li3t>  ,  <index 

type> 

The  dimensionality  cf  array  types  is  specified  by  index 
types,  which  define  net  only  the  number  of  components  of  the 
array,  but  also  the  allowed  values  and  types  of  the  subscripts. 
The  component  type  must  be  coded  as  a  brief  type;  however,  any 
type  which  has  been  defined  by  a  type  definition  may  be 
referenced  by  its  type  identifier  as  a  componenr  type.  (In 
particular,  this  permits  record  and  group  types  as  component 
types  of  arrays). 
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Components  are  placed  coritiquously  in  memory 
necessary)  by  sufficient  space  to  satisfy 
requirements  of  each  component.  The  length  of  an 
the  number  of  bits  to  contain  this  component 
array  has  the  same  alignment  as  its  coroponents. 


,  separated  (if 
the  alignment 
array  equals 
layout,  and  the 


ajcamnles  of  valid _ arrays. 

array  (  (5  to  19) )  of  (0  to  1000) 

array  {Colour)  of  array  {{5  to  16))  of  character  (5) 

Exaa-pies  of  invalid  arrays. 

array  {5  to  19)  of  bit(8)  index  list  must  be  parenthesized 
array  (powerset  of  Colour)  of  bit{16)  powerset  is  not  an 

index  type  -/ 

Restrictions . 

1,  The  maximum  number  of  subscript  positions  is  1.  (This  is 
net  severe,  since  the  component  cf  an  array  may  be  another 
array) . 

2.  The  maximum  length  cf  an  array  element  is  4095  bytes. 


3.6. 2. 2.  Powerset  Types. 

42,  <brief  type>  ::=  powerset  of  <index  type> 

A  powerset  type  has  as  its  values  the  set  of  all  subsets  of 
values  of  an  index  type.  Its  values  are  partially  ordered  by 
set  containment,  and  have  the  set  operations  union, 
intersection,  set  difference,  and  containment  defined  for  them. 

The  compiler  implements  powersets  by  bit  strings,  with  the 
ith  bit  in  the  bit  string  corresponding  to  the  ith  value  in  the 
index  type.  Alignment  and  length  are  computed  for  a  powerset 
type  exactly  as  for  bit  (n)  ,  where  n  equals  the  number  of  values 
in  the  index  type. 

During  expression  evaluation,  the  compiler  can  decide  from 
context  when  values  from  the  index  type  must  be  converted  to 
singleton  sets;  more  generally,  powerset  values  may  be  created 
by  the  built-in  function  set . 

Examples  of  valid  powerset  types. 


powerset  cf  Colour 
powerset  of  (0  to  6) 

Svstem/360  Rest r ict ions . 


Th-e  index  type  may  have  at  most  32  values. 


16  values. 


PDP/11  Restrictions, 

The  index  type  may  have  at  most 


3,6, 2^3.  Pointer  Tyces. 

41.  <briaf  type>  pointer  to  <identifier> 

The  obiect  type  of  a  pointer  is  specified  when  the  pointer 
type  is  defined.  In  fact,  the  object  type  must  he  defined  in  a 
type  definition,  and  referenced  by  its  type  identifier.  This 
type  definition  may  folio’s  the  creation  of  the  pointer  type;  if 
it  does,  it  must  appear  somewhere  in  the  data  block,  context 
block,  or  scope  block  which  contains  the  pointer  type. 

Pointer  values  are  implsmented  by  hardware  addresses.  On 
the  Systam/38C,  these  addresses  are  24  hits,  and  consequently 
pointer  types  have  alignment  and  length  attributes  identical  to 
bit  (24).  On  the  PDPyll,  the  alignment  and  length  attributes  are 
those  of  bit  (16) , 

The  operations  which  are  defined  for  pointer  values  are 
assignment,  comparison  (for  equal  or  not  equal) ,  and 
dereferencing.  Further,  the  compiler  can  decide  from  context 
when  pointer  values  must  be  created  cr  dereferenced,  and  carries 
cut  the  appropriate  action.  See  APPENCIX  III  for  suggestions  on 
the  usage  of  pointers. 

Examples  of  valid  pointer  types. 

pcinter  to  ? rocess__descr i ptcir 
pointer  to  Family 

Fes frictions , 

Pointer  values  may  not  point  at  fields  of  a  group  cr  at 
variables  for  which  aligned  has  been  specified. 


3, 6, 2,4.  Procedure  Types. 


37.  <declaration  type>  ::=  procedure  <paraiQeter  typs> 

<return  type> 


58. 

59. 


60. 
6  1 . 

62, 

63, 


<parameter  type> 

kreturn  type>  : : 

<typ9  list> 


accepts  {<type  list>) 
I  <empty> 

=  returns  (<type  list>)  ' 

1  <empty> 


<declara  tioa 
<type  list> 


t  y  pe> 

<declara tion 


t  ype> 


f 
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Procedure  types  contain  specifications  of  parameters  and 
returned  values,  supplying  all  necessary  informaticn  to  compile 
and  type-check  a  call  cn  a  procedure,  A  procedure  is  not 
required  to  have  either  parameters  or  returned  values.  The 
parameter  and  return  types  are  syntactically  restricted  to 
declaration  types,  which  include  type  identifiers. 

Procedure  declarations  have  no  data  storage  associated  with 
them;  however,  temporary  storage  is  allocated  for  their 
parameters  and  returned  values  when  they  are  invoked. 

Examples  of  procedure  types, 

procedure  accepts  (Colour,  pointer  to  Colour_chart )  returns 
(Erequency) 

procedure  accepts  (Energy,  S p90d_of_liqht)  returns  (Hass) 
Sestrlctions . - 

1.  Neither  parameter  nor  returned  types  may  be  procedure  types. 

2,  At  most  one  returned  type  is  permitted.  The  returned  type 
say,  however,  be  a  record  or  array. 


3»6,2»5,  Area  Types. 


Area  types  are  not  implemented.  They  are  not  in  the 
Machine  Independent  Subset. 


3,6-.3,  Record  and  Group  Types. 

30.  <t7pe>  : <declaration  type> 

31.  ]  <record>  <field  list>  end 

32.  j  <qroup  head>  ;  <field  list>  end 

33.  <racord>  record 

34.  <qroup  head>  zi~  group  <brief  type> 


A  description  of  the  record  and  group  types  will  complete 
the  presentation  of  System  language  data  structures. 


3.6. 3.1.  Record  Types . 

31,  <type>  zz-  <record>  <field  list>  end 

32.  <record>  record 

zz=  <field  declaration! 
;)  <variant  part! 

I  <field  declaration! 


64. 

65. 

6  6, 


<field  list! 


f 


<field  list! 
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67,  <field  declaratiGn>  :;=  <type>  {<identifieE  list>) 

68,  ]  <empty> 


The  body  of  a  record  is  called  a  field  list,  which  is  an 
ordered  list  of  field  declarations  separated  by  cosrjas, 
optionally  followed  by  a  variant  parti-  The  field  declarations 
provide  names  for  the  component  types  of  the  record  structure, 
(The  component  types  are  not  restricted  to  declaration  types)  . 

Examples  of  records  with _ cc  variant  part, 

record 

(1  to  31)  (Day)  , 

(1  to  12)  (donth)  , 

(0  to  2000)  (Year) 

end 

record 

charact er  ( 30 )  (Name,  Fir3t_name) , 

(0  to  9  9)  {Aqe )  , 

Boolean  (Married) 

end 


Variant  Part  of  a  Eecord. 


69,  <variant  part> 


<variant  head>  ;  <yariant  list>  end 


70,  <yariant  head> 


case  <index  typeh  tag  <identifier> 


71.  <variant  list> 

72. 

73. 


<el£e>  <field  list> 

<variant  labelsh  <field  list> 
<variant  labels>  <field  list>  ; 
<yariant  listh 


74,  <else>  : else: 

75,  <variant  lab>els>  <label> 

76,  1  <variant  labels>  <label> 


77,  <label>  ::=  then: 

78,  j  <constant>  ; 

79,  i  <constant>  to  <constant>  : 


A  record  type  may  have  a  varying  format  which  is  introduced 
by  the  declaration  of  a  tag  field  to  be  of  some  index  type.  The 
variant  formats  are  themselves  field  lists,  separated  by 
semicolons,  and  labelled  by  one  or  mere  constants  of  the  index 
type.  At  any  time,  the  value  of  the  tag  field  designates  which 
alternative  is  in  effect.  This  mechanism  provides  a  controlled 
framework  for  defining  data  structures  whose  interpretation 
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depends  upon  their  value  (i.e.,  the  value  of  the  taq  field) . 
The  proqraramer  is  responsible  for  checkinq  the  taq  field  before 
referencinq  a  variant  field. 

It  is  worth  aer.tioninq  some  syntactic  implications  which 
may  not  have  been  noticed  from  the  above  productions. 

1.  A  field  list  may  be  empty  {and  consequently,  so  nay  an 
alternative) 

2.  The  label  else ,  nsed  to  denote  "all  otherwise  unspecified 
values  of  the  index  type",  may  only  label  the  last  alternative. 

3.  At  most  1  variant  part  is  allowed  par  field  list,  and  it 
must  be  at  the  end  of  a  field  list;  however,  any  field 
declaration  nay  involve  a  record  type  which  itself  contains  a 
variant  part. 

Fields  of  a  record  are  placed  contiguously  in  memory, 
separated  (if  necessary)  by  sufficient  space  to  satisfy  the 
alignment  requir ement s  of  each  component  type,  if  the  record 
type  contains  a  variant  part,  the  alternatives  overlay,  and  the 
record  lenqth  is  computed  usinq  the'  longest  alternative.  The 
alignment  requirements  cf  a  record  type  are  those  of  the  field 
which  forces  the  most  stringent  alignment.  For  example,  on  the 
Svstera/350,  to  guarantee  that  a  fullword  field  is  aligned  on  a 
fullword  boundary,  the  entire  record  type  must  be  eiligned  on  at 
least  a  fullword  boundary. 

' Operations  defined  for  record  values  are  assianment  and 
comparison  for  equality  or  inequality  with  other  record  values 
of  the  identical  type,  as  well  as  field  selection.  Fields  are 
selected  by  appending  a  period  and  the  field  name  to  the  record 
value. 

Examples  of  record  types  with  variant  parts. 

type  Lisp_cell  = 
record 

case  (Atom,  Number,  Cons)  taq  Cell_type; 

Atom:  character  (30)  (Name); 

Number:  (-10000  to  10000)  (Value); 

Cons:  pointer  to  Iisp_cell  (Car,  Cdr) 

end 

end 

type  Georaet rical_f iqure  = 
record 

(0  to  32767)  (X,  Y ,  Area)  , 

case  (Triangle,  Rectangle,  Circle)  tag  Shape; 

Triangle:  (0  to  10000)  (Side)  , 

(0  to  359)  (Anqlel,.  Angle2,  Inclination)  ; 

Rectangle:  (0  tc  10000)  (Sidel,  Sided) , 

(0  to  359)  (Skew,  Angle3) ; 

Circle:  (0  to  10000)  (Diameter) 

end 


end 


32 


Restrictions 

1,  Field  naces  within  a  record  tincludinq  the  variant  fields) 
must  be  distinct, 

2,  No  alternative  field  list  may  directly  contain  a  variant 
part;  however,  any  alternative  may  contain  a  record  type  which 
has  a  variant  part. 

3,  The  lenqth  of  a  record  type  may  not  exceed  32767  bytes. 

3.6. 3, 2,  Group  Types.  {Not  in  riachine  Independent  Subset)  . 

32,  <type>  : <qroup  head>  ;  <field  list>  end 
34,  <qroup  head>  qrcup  <brief  type> 


Group  types  differ  from  record  types  in  two  respects: 
overall  interpretation  and  field  , alignment.  A  group  type  is 
introduced  by  specifying  a  brief  type  which  provides  the 
interpretation  of  the  structure  as  a  whole.  The  alignment  and 
length  of  the  arcup  type  is  computed  from  the  overall  type. 

Fields  cf  the  group  type  are  packed  as  tightly  as  possible, 
constrained  by  the  alignment  requirements  of  sa.ch  ccmpcnent 
type.  The  impact  of  this  is  twofold:  first,  if  the  natural 
alignment  unit  of  a  type  (computed  by  rounding  up  the  length  to 
the  next  power  of  two)  is  one,  two,  or  four  bits,  it  is  not 
increased  to  eight  to  afford  byte  addressability';  rather,  it  is 
allocated  on  a  bit,  two-bit  or  four-bit  (half-byte)  boundary. 
Secondly,  high-craer  bits  of  the  alignment  unit  (which  are 
inserted  by  the  round-up  procedure  to  right- q ustif y  the  field) 
may  be  overlayed  with  previously-declared  storage,  He  give  an 
example  of  a  group  type  which  illustrates  these  two  phencmena, 

gro  up  bit  (32)  ; 

faitd)  (X), 
bit  (3)  (Y), 

bit(1)  (Z), 
bit  (2)  (S), 

pointer  to  Colour  (P) 

end 


Each  of  fields  X,  Y,  Z,  and  W  illustrate  the  first  above 
rule.  The  field  X  occupies  the  first  bit  of  the  structure.  To 
allocate  field  Y,  we  must  apply  the  second  rule  of  the  above. 
The  type  bit  (3)  must  occupy  the  rightmost  three  bits  cf  a  four- 
bit  unit,  and  thus  we  can  overlay  the  (unused)  leftmost  bit  of 
field  Y  with  field  X,  Hence,  field  Y  occupies  the  second, 
third,  and  fourth  bits  of  the  structure.  Field  Z  occupies  the 
fifth  bit  of  the  structure.  Field  W  oust  be  aligned  on  a  two- 
bit  boundary,  and  thus  cannot  be  allocated  in  the  sixth  and 
seventh  bits  of  the  structure.  Moreover,  neither  of  these  two 
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bits  are  unusad,  and  hence  field  S  cannot  o\^erlay  Z  as  Y 
overlayed  X.  Thus,  W  masr  be  allocated  in  the  seventh  and 
eiqhth  bits  of  the  structure.  Field  P  must  occupy  twenty-four 
bits,  and  hence  must  be  r iqh t- i ustif ied  in  thirty-two  bits,  with 
the  hiqh-order  eiqht  bits  unused.  Thus,  by  applying  the  second 
above  rule,  we  begin  P  cn  the  ninth  bit  of  the  structure, 
overlaying  the  hiqh-crder  8  bits  with  fields  X,  I,  Z ,  and  H, 

The  group  type  is  included  in  the  System  Language  tc  permit 
the  definition  of  hardware-defined  data  structures.  These 
readers  who  are  familiar  with  the  SysteEQ/360  will  realize  that 
there  is  considerable  difficulty  in  accessing  any  storage  unit 
smaller  than  eight  bits,  and  will  expect  that  storage  used  to 
contain  the  shifting  and  masking  logic  to  access  packed  data 
will  often  be  greater  than  the  storage  saved  by  packing  the 
data.  We  give  a  further  example  of  a  group  type  to  demonstrate 
its  intended  use, 

type  Chaiinel_status_yor d  = 
group  bit  (64)  ; 

bit  {4)  (Key,  Unused)  , 

pointer  to  Ch annal_coamand_wor d  (Coramand_aQdress)  , 
array  (bit  (4))  of  tit(1)  (Status)  , 
bit  (16)  (Count) 

end 


Systera/360  Sestrictions, 

1.  The  total  length  of  a  qrcup  type  must  not  exceed  4095  bytes, 

2.  The  length  of  the  group  is  computed  in  two  ways:  from  the 
overall  type  and  from  the  field  list.  These  two  lengths  must  be 
identical. 

3.  If  one  of  the  fields  of  a  qrcup  is  a  record  type,  the  fields 
cf  the  record  are  act  re-allccated  in  a  packed  fashion, 

PDP/11  Restrictions, 

Group  types  are  not  implemented. 

Subset:  Note. 

Groups  are  extremely  machine-dependent.  If  someone  uses 
them,  he  should  check  the  storage  allocation  and  code  emission 
to  ensure  that  he  is  getting  what  he  wants. 


3,6,4,  Attributes. 

44.  <brief  tvpe>  <attribute>  kbrief  type> 


I  fast 
1  aligned 


8C.  <attribQte> 
8  u 
8  2. 
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83.  ]  aligned  <iiumber>  ,  <nuraber> 


The  System  language  attributes  permit  the  user  to  change 
the  default  controls  which  the  compiler  computes  for  each  type. 
These  controls  are  used  to  compute  the  address  and  access 
strategy  for  values  of  rhe  particular  type.  There  are  three 
System  Language  attributes:  register,  fast,  and  aligned. 

3, 6. 4,1. _ P.egister  attribute, 

Eegister  is  not  available. 


3 , 6 , 4 . 2 .  Fast  Attribute. 


On  some  machines,  hardware  idiosyncrasies  cause  seme 
st-orage  units  to  be  more  appropriate  than  others  for  containing 
numeric  values.  For  example,  on  ’the  System/360  the  Insert 
Character  instruction  leaves  the  high-order  twenty-four  bits  of 
the  register  unchanged,  forcing  a  subtract  register  tc  precede 
it  for  access  to  numeric  values.  The  fast  attribute  is  a 
machine— inde pendant  way  cf  directing  the  compiler  to  choose  a 
storage  unit  which  minimizes  the  instructions  required  tc  access 
values  of  a  particular  type. 

On  the  System/360  it  may  be  applied  to  bit  and  programmer- 
defined  types,  their  subranges,  and  their  powersets,  causing 
their  values  to  be  right- justified  in  at  least  a  halfword. 

Examples  of  the  fast  attribute. 

fast  (0  to  128) 
fast  (Bed  to  Blue) 
fast  Colour 

Efficiency  Note. - 

In  general,  more  efficient  use  of  storage  occurs  when  the 
fast  attribute  is  used  in  declaration  of  scalar  variables.  This 
is  because  the  code  template  to  access  a  byte  is  at  least  2 
bytes  larger  than  that  tc  access  a  word  on  each  machine. 
However,  in  general,  array  components  should  not  have  the  fast 
attribute. 


3,6.  4 3 . _ Aligned  Attribute.  (Not  in  the  Machine  Independent 

Subset)  . 

The  aligned  attribute  is  designed  for  explicit  pregrammer 
control  of  storage  allocation.  It  has  two  forms:  ‘aligned’,  and 
*  aligned  n , m ’ . 
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The  first  form  affects  the  allocation  of  fields  in  a  qrcup. 
It  should  be  recalled  that  aliqnmer.t  units  are  normally  rounded 
up  to  at  least  a  byte  at  declaration  time,  but  within  a  group 
they  may  specify  subsets  of  a  byte.  If  the  compiler  is  informed 
that  a  component  type  of  a  group  is  aligned,  it  ignores  its 
packing  algorithm;  field  daclararions  for  that  type  are 
processed  as  if  they  were  not  in  a  group.  Other  fields  of  the 
group  are  packed  normally,  however. 

Ejcamples  of  aligned. 

In  this  example,  the  field  X  occupies  the  first  bit  cf  the 
group;  however,  field  Y  occupies  the  last  eight  bits  of  the 
group,  wasting  the  second  through  eighth  bits.  This  is  because 
the  aligned  attribute  causes  the  one-bit  storage  unit  to  be 
rcunded  up  to  a  byte  when  Y  is  declared, 

group  bit  { 1  5)  ; 
bit  (1)  (X)  , 

aligned  bit(1)  (Y) 

end 

The  second  form  of  the  aligned  attribute  provides  the  two 
numbers  which  exactly  specify  the  alignment  of  the  type.  They 
override  the  alignment  infcrmaticn  computed  for  the  type.  The 
second  number,  m,  must  be  a  power  of  two  in  the  range  one  to 
sixty-four  inclusive.  It  specifies  the  number  of  bits  contained 
in  the  storage  unit  which  forms  the  storage  boundary  of  the 
type.  The  first  number,  n,  must  be  in  the.  range  zero  to  m- 1 
inclusive,  and  specifies  which  bit  in  the  m-bit  storage  unit  is 
the  starting  bit  for  the  type,  {Starting  bits  are  numbered  from 
zero) . 

Examples  of  alignment  specification. 


aligned 

0,8 

b  it 

C 

(i 

,  e 

.  ,  the  f irst 

bit)  of  a  byte  -/ 

aligned 

1,8 

bit 

1 

cf 

a 

byte  */ 

aligned 

4,15 

/* 

bit 

4 

of 

a 

halfword  t/ 

aligned 

32,54 

bit 

32 

o 

T" 

a  doubleword 

aligned 

1,4 

bit 

1 

of 

a 

4-bit  field 

*/ 

aligned 

0,1 

bit 

0 

of 

a 

1-bit  field 

(i.e,,  unaligned) 

Example-s  of  the  default  alignment  computed  by  the  compiler. 


bit  (8) 
bit  (7) 
bit  (9) 

(0  to  3) 
(1  to  7) 


aligned  0,8 
aligned  1 , 8 
aligned  7,16 
aligned  0,2 
align ed  1  ,  ^4 


The  above  examples  have  their  alignment  rounded  up  to  at 
least  an  eight-bit  stcraqa  unit  when  they  are  used  in 
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declarations  outside  a  qroup.  The  number  pairs  which  result  are 
0,8;  1,8;  7,16;  6,8;  and  5,8  respectively, 

When  the  proqrammer  is  careless  in  overridinq  the 
compiler's  default  aliqnments,  he  may  be  surprised  by  the 
results.  The  compiler  dees  not  recompute  the  length  of  an 
explicitly  aliqned  rype,  and  thus  does  not  guarantee  that  values 
of  the  type  will  be  riqht  -justified  in  their  storage  unir  , 
Moreover,  the  compiler  will  start  such  a  field  on  the  next 
occurrence  of  "bit  n  of  an  m-bit  storage  unit"  by  using  the 
packing  algorithm  for  fields  of  a  group.  Thus,  access  to  memcry 
for  fields  of  this  type  may  be  followed  by  shifting  and  masking 
operations.  The  followirq  examoles  shows  this. 

aligned  10,16  bit  (3) 

Variables  of  this  type  will  be  packed  in  bits  ten,  eleven, 
and  twelve  of  a  halfword,  and  access  to  them  may  be  expensive, 
owing  to  their  inconvenient  position  in  memory.  If  the  hyoe 
were  changed  to  bit (6)  from  bit (3) ,  values  would  then  be  right 
iastified  in  a  halfword,  and  be  more  convenient  (and  hence 
efficient)  to  use. 

PCP/11  Restrictions. 

Aliqned  is  ignored. 

Subset  Note. 


Aliqned  is  not  in  the  Machine  Independent  Subset,  It 
should  not  be  used  unless  the  programmer  is  prepared  to  hand- 
check  the  storage  allocation  and  the  emitted  code. 
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3.7, 


Control  Structures, 


3.7,,  1  Scope  Blocks  and  Cten  Statements, 

90.  <scope  block>  : <ex6cutable  statement  list> 

91.  1  <definition>  ;  <£cops  block> 

92.  1  <open  statament>  ;  <scope  block> 

93.  <open  stateiaGiit>  open  <storaqs  reference> 

94.  <executable  statement  li£t>  <exscutable  statefflsnt> 

95.  1  <executable  statement  list>  ; 

<executatle  statera8nt> 


Scope  blocks  are  the  todies  of  p rogram  blocks  and  begin 
compounds.  A  scope  block  contains  a  statement  list  for 
seqaential  execution,  opticnally  preceded  by  definitions.  The 
life  of  defined  symbols  is  exactly  that  of  the  scope  block  which 
defines  them,  A  description  of  definitions  has  been  given,  and 
a  description  of  statements  will  follow.  "Se  describe  the  open 
statement  here. 

The  open  statement  is  an  operation  on  a  record  or  group 
type  (more  specifically,  on  the  fields  of  the  structure).  Its 
effect  is  to  eliminate  the  need  for  qualification  of  field  names 
by  the  storage  reference  during  the  current  scope.  The  compiler 
detects  and  reports  erroneous  multiple  definition  of  a  variable 
due  to  an  open  statement  (by  applying  the  scope  rules  exactly  as 
for  variable  declarations) . 

If  one  of  the  compcnent  types  of  a  structure  is  itself  a 
record  or  group,  it  remains  unopened  when  the  containing 
structure  is  opened.  Alternatively  a  component  structure  may  be 
opened  even  if  the  ccntaininq  structure  is  not  opened. 

Ixaaple  of  the  Open  Statement. - 

type  List_element  = 

record 

pointer  to  List^element  (Nex t_element)  , 
Element_informaticn_type {Element_inf ormation) 

end ; 


In  the  context  of  the  above  structure,  we  define  a  macro 
which  inserts  a  new  element  into  the  list.  i-Je  assume  that 
New__element  and  Inser tion_spGt  are  pointers  to  List_el emenr . 

macro  Insert  ( Ne w_e leme n t ,  Insertion_spot) ; 
begin 

open  Insertion_spct2; 

Ne  w__eleiaent5).  Next_element  :=  Next_element ; 
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Kext_slsrrier. t  :=  New_elsment 

€nd 

€r.d  macro; 


Note 


Opens  should  be  localized  as  much  as  possible  to  make  most 
efficient  use  of  compile- time  symbol  table  space.  This  is 
because  open  is  implemented  by  redeclarinq  each  field  of  the 
structure. 

If  the  specification  of  the  record  to  be  opened  involves 
any  pointer  dereferencing  or  array  indexing,  these  address 
calculations  are  done  only  once  {at  the  start  of  the  scope 
b lock) . 


3.7,2.  Simple  Statements. 


ICO,  <executable 
101. 

statementh 

1 

<assignment> 
<stcrage  ref 

erence> 

139.  <assignment> 

: :=  <stcrage 

referenca>  := 

<va lue> 

137.  <value> 

138.  1 

<expressicn> 
<assignsent > 

3.7,2. 1.  Assignments. 

The  assignment  operator,  ,  is  treated  as  a  binary 
operator  of  lowest  precedence  whose  value  is  its  right  operand, 
and  whose  side-effect  is  the  assignment  of  its  value  to  its  left 
operand.  Multiple  assignments  are  permitted,  and  are  processed 
from  right  to  left;  indeed,  by  parenthesizing  when  necessary, 
any  intermediate  value  may  be  assigned  during  expression 
e  valuation. 

Programming  Note. 

It  is  a  good  practice  to  limit  the  uses  of  the  assignment 
operator  to  one  assignment  per  statement.  This  will  yield  the 
traditional,  easy  to  read  Algol  form  of  assignments. 


3 . 7, 2 . 2 . _ Procedure  Invocation. 

Procedures  are  invoked  by  the  appearance  of  their  name.  If 
they  have  been  declared  with  parameters,  a  parenthesized  tuple 
of  actual  parameters  must  follow.  They  may  be  executed  merely 
for  side  effect,  in  which  case  their  invocation  is  a  simple 
statement.  All  parameters  are  pa.ssed  by  value,  as  are  any 
returned  values;  however,  parameters  or  returned  values  may  be 


pointers,  qivir.q  ths  effect  of  call  by  reference. 

Restrictions . 

1.  At  most  cne  returned  value  is  perritted, 

2,  The  paranieter  and  returned  types  of  procedures  ray  not 
themselves  be  procedure  types. 

Ffficiencv  Mete. 

Except  in  unusual  circumstances,  arrays  and  records  should 
be  passed  by  reference,  not  by  value.  This  is  accomplished  by 
defininq  the  parameter  type  to  be  a  pointer  to  the  desired 
E truef ure. 


3  » 7 , 2. 3 .  Tuples* 


132. 

<t uple> 

: : =  <t  uple 

€lemeat> 

133. 

j  <tuple> 

,  <tuple  el€raent> 

134. 

<t uple 

eleaent>  : ; = 

<value> 

135. 

1 

<index  type  identifier> 

136. 

i 

<com pound  type  identifier> 

137. 

<valuG> 

: <expressicn> 

138. 

(  <assignment> 

A  tuple  is  an  ordered  list  of  tuple  elements,  separated  by 
commas.  Compiler  restrictions  disallow  other  than  one  tuple 
element  in  all  contexts  except  parameter  lists  to  procedures  and 
built-in  functions.  Each  tuple  element  may  be  an  expression;  as 
well,  type  identifiers  may  be  used  as  parameters  to  the  set 
built-in  function  (Section  3 . 7, 2 , 5. 3 , 2 ) . 


3.7. 2.4,  Expressions. 

Expressions  are  built  upon  storaqs  references  and  constants 
using  operations.  We  will  define  each  expression  operator,  in 
order  or  increasing  precedence,  indicating  the  types  of  its 
operands  and  the  meaning  of  its  results.  APPENDIX  II  gives  the 
type  compatibility  rules  for  the  System  Language. 

We  precede  the  detailed  discussion  of  each  operator  with  a 
summary  of  three-classes  of  operations:  arithmetic,  boolean,  and 
pewerset. 

The  arithmetic  operators  are  the  usual  ones:  +,  /, 
and  mod.  They  obey  the  usual  precedence  rules.  They  may  be 
applied  to  any  bit  or  integer  subrange  type,  yielding  integer 
results , 
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The  boolean  operatcrs  j,  xor„  and  &  (’’inclusive  or”, 
’’exclusive  cr",  and  ’’loqical  and"  respectively)  operate  on  each 
bit  of  a  word  (16  bits  and  32  bits  on  the  PDP/11  and  System/360 
respecrively) ,  permittinq  maskinq  operations  as  well  as  boolean 
ones.  Boolean  values  1  (true)  and  0  (false)  may  be  created  by 
relational  operators;  as  well,  any  integer  value  may  be  treated 
as  a  boolean  by  looking  at  the  low  order  bit  for  truth  (1)  or 
falsity  (0) , 

The  powerset  operations  are  detected  when  at  least  one 
operand  of  an  operator  is  a  powerset  type.  The  legal  powerset 
operations  are  j  (set  union),  &  (set  intersection) ,  -  . (set 

difference) ,  <  (strict  set  containment) ,  =  (set  equality) ,  and 

<=  (set  containiaent)  .  If  either  operand  is  not  a  powerset,  it 
is  coerced  to  a  sinqleton  set  prior  to  the  operation.  The 
built-in  function  Set  (section  3.7, 2.5, 3. 2)  may  be  used  to 
initialize  powerset  values. 

Programming  Note, 

If  individual  bits  cf  a  byte  need  .  to  be  addressed,  we 
recommend  the  use  of  powersets  rather  than  groups. 

3, 7. 2. 4.1,  Or  Operators, 

140,  <expressicn>  <icqical  terra> 

141,  1  <sxpression>  <cr  operator!  <loqical  term! 

165,  <or  operator!  : | 

166.  J  xcr 


^  operators  may  be  inclusive  (])  or  exclusive  (xcr)  .  Ilhen 
they  are  applied  to  numeric  values,  they  cause  the  bit-wise 
logical  operations  of  inclusive  or  exclusive  or^  As  we  will  see 
in  Section  3.7.2, 4,3,  boolean  values  are  treated  as  numeric, 
permittinq  the  usual  loqical  expressions. 

When  the  inclusive  _cr  is  applied  to  powerset  values,  it 
computes  the  set  union  cf  its  operands.  The  base  types  of  the 
powersets  must  be  compatible.  If  only  one  operand  is  a  powerset 
value,  the  compiler  converts  the  ether  operand  to  a  singleton 
set  prior  to  computing  the  union.  This  is  the  mechanism  for 
adding  an  element  to  a  set.  (Exclusive  or  may  not  be  applied  to 
pewerset  values) . 


System/360  Restrictions. 

Operands  must  fit  in  32  bits. 
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PEP/11  Restrictions, 

Operands  most  fit  ir  16  bits,  "xor"  is  not  implemented. 
Examples  o £  Set  On icn . 

Assume  that  X  is  cf  type  Colour,  and  Hue  is  cf  type 
powerset  of  Colour, 

Hue  Set (Colour) ;  place  constants  of  colour  in  Hue  */ 

Hue  :=  Set(Sed,  Yellcw) ;  elements  Hed,  Yellow  only 
Hue  z-  Hue  |  Blue;  add  the  value  Blue  to  the  set 
Hue  :=  Rue  |  Z;  */  add  the  value  of  X  to  the  set 


3,7, 2,4, 2,  And  Operator, 

142,  <loqical  tera>  ::=  <lcqical  factor/ 

143,  I  <lcqical  term/  B  <loqical  factor/ 


When  the  and  o pera tor  (S)  is  applied  to  numeric  values,  it 
causes  the  bit-wise  andinq  of  its  operands.  As  we  will  see  in 
Section  3, 7. 2, 4. 3,  boolean  values  are  treated  as  numeric, 
permittinq  the  usual  loqical  expressions. 

I5hen  the  and  operator  is  applied  to  powerset  values,  it 
computes  the  set  intersection  of  its  operands.  The  base  types 
of  the  powersets  must  be  compatible.  If  only  one  operand  is  a 
powerset  value,  the  compiler  converts  the  other  operand  to  a 
sinqlatcn  set  prior  to  ccmputinq  the  intersection. 

Svsteni/360  Restrictions. 

Operands  must  fit  in  32  bits, 

PEP/11  Restrictions. 

Operands  must  fit  in  16  bits. 

Examples  of  Set  Intersection. 

Assume  X  is  of  type  Colour,  and  that  Ruel,  fiue2  are  cf  type 
powerset  of  Colour, 

X  :=  Bed; 

Huel  :=  Set  (Red, Yellow) ; 

Kue2  ;=  Huel  B  X;  /^  X  is  treated  as  a  sinqleton  set  */ 

Hue1  Huel  S  Hue2 ; 


3. 7. 2. 4, 3.  Relational  Operators. 

144,  <loqical  factor/  : <strinq  expression/ 


145 


I  <loqical  factor>  <ralatioQal  cperatcr> 
<strinq^  expression> 


167.  <relacicnal  op€rator> 


< 


168  . 

169. 

170. 

171. 

172. 


j  <  = 
I  >  = 


i  > 


Any  System  Lanquaqs  values  of  the  same  type  may  be  compared 
for  equal  or  not  equal.  As  well^  compatible  index  types  may  be 
ccinparsd  less  than  or  qrsatar  than. 

When  a  xelaticaal  operator  is  applied  to  powerset  values, 
it  tests  for  set  equality  or  inclusion  (but  not  for  proper  sat 
inclusion).  The  base  types  of  the  powerset  must  be  compatible. 
When  only  one  operand  is  a  powerset  value,  the  compiler  converts 
the  other  operand  to  a  sinqleton  sat  prior  to  the  comparison. 

The  result  of  a  relational  operation  is  the  integer  value  1 
(true)  or  0  (false)  .  The  compiler  will  treat  any  integer  value 
as  boolean  by  testing  its  low-order  bit.  Even  values  are 

equivalent  to  false,  odd  values  are  equivalent  to  true. 
Consequently,  the  appearance  of  relational  tests  or  boolean 
variables  in  a  logical  expression  produces  consistent  results, 
note  that  boolean  values  are  compatible  only  with  integer 
values. 

Svstea/360  Restrictions. 

Powerset  values  must  fit  in  32  bits;  other  relational 

operands  must  fit  in  at  most  254  bytes. 

PDP/ 1 1  Restrictions . 

Powerset  values  must  fit  in  16  bits;  other  relational 

operands  may  only  be  compared  for  equality  or  inequality  if  they 
occupy  more  than  16  bits. 

Example-of  Set  Comparison. 

Assume  that  X  is  of  type  Colour,  and  that  Hue1 ,  Hue2  are  of 
type  powerset  of  Colour, 

fiuel  =  Kae2  /*  true  if  the  sets  are  identical  / 

Euel  <-  Hue2  /*  true  if  set  Hue2  contains  set  Huel  */ 

Euel  <  Hue2  true  if  Huel  <=  Hue2  and  Huai  ->=  Hue2  */ 

Bed  <=  Huel  true  if  Red  is  an  element  of  set  Huel 

X  <=  Hua1  /*  true  if  value  or  X  is  an  element  of  Huel 
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Catenate  Operator 


4  3 


3 , 7 . 2 . 4 , 4 . 


146,  <strinq  6xpre3sion>  ;  <Ruineric  expression> 

147.  !  <strinq  €xpression>  Ji 

<num-eric  expr-essiori> 


The  catenate  operator  HI)  is  net  i  rr:  piemen  ted. 


3,7, 2. 4. 5.  Adding  Operators. 

148,  <niiineric  expr9osioE>  <numeric  terffl> 

149,  !  <num9ric  expre33ion> 

<addinq  operator> 
<numeric  term> 

173,  <addinq  operatcr>  ::=  + 

174,  !  - 


Addinq  operators  may  be  applied  to  integer  values. 

When  the  subtraction  operator  is  applied  to  newer set 
values,  it  computes  the  set  difference  of  its  operands.  The 
base  types  must  be  compatible.  If  only  one  operand  is  a 
pewerset  value,  the  other  is  converted  to  a  singleton  set  prior 
to  computing  the  difference.  This  is  the  mechanism  for  removing 
an  element  from  the  set.  Only  the  elements  in  the  right  operand 
which  are  present  in  the  left  operand  are  removed;  all  other 
elements  in  the  right  operand  are  ignored, 

SvsteB/360  Restrictions. 

Operands  must  fit  in  32  bits, 

PEP/11  Restrictions, 

Operands  must  fit  in  16  bits. 

Examples  of  Set  Difference, 

Assume  that  X  is  of  type  Colour,  and  Huel,  Hue2  are  of  type 
pewerset  of  Colour. 

Kuel  Set  (Colour)  ; 

Kue2  :=  Set  ( Eed  , Ora nge , Yellow)  ; 

X—  fied  ; 

Huel  -  Hue2  /-  conplement  of  Hue2  '^/ 

Hue2  -  X  /*  because  of  above,  has  the  value 
Set  (Orange, Yellow)  */ 

Huel  -  Red  remove  Red  from  Hue1  */ 

Kue2  -  Blue  /*  since  Blue  is  not  in  Hue2,  this  has  the  value 
Hu62  (i.e, ,  it  does  nothing)  */ 
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3 . 7 .  2 . 4 . 6  , _ r-'ultipl  yiriq  Operators. 

150.  <naffieric  ters>  <r:umeric  factor> 

153,  ]  <Duaeric  terE>  < multi plyinq  opeEator> 

<numeric  factor> 

175.  <inultiplyinq  oF£catcr>  ::=  - 

176.  1/ 

177.  J  mod 


The  multiplyinq  operators  are  multiply  ,  divide  {/)  ,  and 
remainder  (mod).  They  may  be  applied  to  integer  values  only. 

System/36Q  Restrictions, 

Both  operands  must  fit  in  32  bits, 

PDP/11  Eestr ic tions , 

Mod  is  not  implemented.  Multiply  and  divide  are 
implemented  only  for  constant  operands. 


3, 7, 2. 4, 7,  Unary  Operators, 

150.  <numeric  term>  <numeric  factor> 

151.  ]  -■  <numeric  factor> 

I  <adding  operatcr>  <nnraeric  factor> 


The  unary  operators  are  +,  and  They  may  only  be 

applied  to  integer  values.  The  -•  operator  yields  the  one's 
ccmplement  of  its  operand,  the  -  operator  yields  the  two's 
complement,  and  the  +  operator  has  no  effect.  Since  the  Boolean 
values  true  and  falsa  are  equivalent  to  odd  and  even  integer 
values  respectively,  the  ->  operator  will  invert  truth  values  in 
the  usual  way. 

Unary  operators  are  at  the  same  level  of  precedence  as 
multiplying  operators,  so  if  they  are  applied  to  the  right  hand 
operand  of  a  multiplication,  this  operand  must  be  parenthesized. 

SvsteiH/36Q  Bestrictions. 

The  operand  must  fit  in  32  bits. 

PCP/11  Restrictions. 

The  operand  must  fit  in  16  bits. 
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3 . 7 . 2 , 5^ 


Base  Values  of  Exoressions. 


154.  <Rumeric  factor>  ::=  <storaqe  refGrence> 

155.  1  <unsiqned  coEstant> 

156.  J  i  <tuple>  ) 


Expressions  are  built  upon  storage  references  and  unsigned 
ccnstants.  As  veil,  tuples  may  be  parenthesized  to  control  the 
order  of  expression  evaluation. 

S  €  s trie tig  ns. 


Only  one— tuples  tay  be  parenthesized  to  produce  numeric 
factors. 


3,  7. 2. 5.1.  Constants. 

51,  <constant>  ::=  <unsiqnad  constant> 

5  2.  1  <addin q  o pera tor>  <number> 

53.  <unsiqned  constant>  ::=  <namber> 

54.  i  <strinq> 

55.  i  <con3tant  identifisr> 

The  unsigned  constants  have  previously  been  described. 
They  may  be  syntactically  reduced  to  constant  for  use  as  a  label 
in  a  selecticn,  or  to  numeric  factor  for  use  in  expressions. 


3,7. 2.5.2.  Storage  References. 

157.  <storaqe  refGrence>  : <7ariable  identifier> 

158.  j  <procedure  identifi9r> 

159.  1  <storaqs  refersnce>  3 

160.  1  <storaqs  reference>  .  <identifier> 

161.  1  <storaqs  reference>  {  <tuple>  ) 

Storage  references  are  used  to  reference  values  in  memory, 
and  to  invoke  procedures.  A  procedure  identifier,  followed  by  a 
parenthesized  tuple  of  actual  parameters  {if  required)  ,  yields 
the  returned  values  of  the  procedure  (if  any) .  A  storage 
reference  may  be  involved  in  three  possible  address 
calculations:  pointer  dereferencing,  field  selection,  and  array 

subscription.  The  result  of  such  a  calculaticn  produces  a 
storage  reference  which  may  be  involved  in  further  address 
calculations.  The  legality  of  these  operations  is  determined  by 
the  type  of  the  storage  reference. 

Values  of  pointer  types  may  be  explicitly  dereferenced  by 
the  postfix  2  operator.  The  result  is  a  value  which  is  typed  by 


I 


the  obisct  type  of  the  pointer.  This  explicit  dereferencing 
•operator  may  be  rednadant:  the  compiler  will  attempt  to  match 
types  daring  type  checking  by  automatically  dereferencing  or 
creating  pointer  values.  See  APPENDIX  III  for  details. 

Values  of  record  or  grouo  types  may  be  used  as  qualifiers 
in  a  field  selection,  which  is  effected  by  appending  a  dot  and 
the  field  name  to  the  storage  reference,  Eield  selection  must 
always  be  explicitly  qualified,  even  when  unqualified  reference 
to  the  field  name  wculd  be  unambiguous,  unless  the  record  or 
group  has  been  opened  in  the  current  scops.  The  result  of  a 
field  selection  is  a  storage  reference  typed  by  the  component 
type  of  the  structure. 

Values  of  array  types  may  be  qualified  by  a  parenthesized 
subscript  expression  to  select  the  component  type.  This  address 
calculation  uses  the  indexing  hardware  of  the  machine.  The 
resulting  value  is  a  storage  reference  which  is  typed  by  the 
component  type  of  the  array. 


Examples  of _ Storage  aeferences. 

/*  We  define  some  types  ^ / 
type  Six_pack  = 
record 

array  {  { 1  to  6) )  cf  Eottle  (B)  , 
pointer  to  Cas9_of_Beer  (?) 
end ; 


type  Case__o f_beer  =  array  ((1  to  4))  of  Si x_ pack; 


/*  We  declare  some  variables 
declare 

Case_of_beer  (C)  , 

Six_pack  (S)  ; 


We  give  some  storage  references,  indicating  their  types  */ 


C 


c  (3) 

C  (3)  .Pd 
C  (3)  .B  (4) 

C  (3)  ,Pa)  (2)  .  B  (1) 


Case_of_beer  */ 
Six_pack 
Six__pack 
Case_of_bser  */ 
/*  Bottle  */ 

Bottle  */ 


3.7. 2.5.3. _ Built-in  Functions. 

The  System  Language  provides  built-in  functions  which  are 
invoked  as  procedures,  but  which  are  i  mpleiaented  by  rhe 
compiler. 
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3 .7.  2,  5 , 3^U 


i  n  1  i  n  3  * 


(Not  in  Machine  Independent  Subset) , 


Inline  inserts  arbitrary  raachine  code  in  line  at  compile 
time.  The  parameters  are  quantities  that-  cause  cods  to  be 
placed  in  the  machine  instruction  format. 


Svstem/36  0 

For 

13  S  C  S  » 

Inline 

(Op, 

El 

,  2  2) 

EH-Format 

Inline 

(Op, 

e. 

X,  <address>) 

SX-Forma t 

*/ 

Inline 

(Op, 

2, 

X,  <address>. 

<address>)  /* 

SS-Forraat 

Op  is  the  Systea/360  eiqht-bit  operation  code,  and  Si,  B2 , 
E,  and  X  are  four-bit  numbers  of  System/360  registers.  All  of 
these  must  be  integer  constants. 

The  address  field  must  yield  the  four-bit  base  and  the 
twelve— bit  displacement  which  is  the  required  address.  These 
values  may  be  specified  directly  by  coding  the  integer  constants 
B,  D;  alternatively,  a  variable  identifier  may  be  coded,  and  the 
compiler  substitutes  in  the  bass  and  displacement  values 
computed  at  declaration  time.  (See  example  below) . 


Some  variables  may  be  located  more  than  4K  bytes  from  the 
base  address  location,  and  will  need  an  index  value  to  be 
addressable.  If  these  variables  are  used  in  the  address  field 
of  an  EX  instruction  whose  index  register  (X)  was  zero,  the 
compiler  will  insert  the  correct  index  register  value  in  the 
index  field  and  emit  a  warning  message;  otherwise,  the  intended 
addressability  will  not  exist,  and  the  compiler  will  emit  an 
error  message,  ignoring  the  index  in  the  emitted  instruction. 


Examples-  of  Inline  for  Systea/36Q. 


Assume  that  X  is  12  bytes  past  register  10,  and  Y  is  4108 
bytes  past  register  10.  He  will  give  examples  of  Inline  usage 
and  the  equivalent  assembly  code. 


Inline  ('’18»,  1,  10) 
Inline  (”58”,  1,  0, 
Inline  (" 58”  ,  1 ,  0 , 
Inline  ('’41”,  1,  2, 
Inline  (”41'^,  1,  0, 
Inline  ("41”,  1,  2, 
Inline  (”D2”,  1,  10, 
Inline  ("D2”,  1,  10, 


LE 

10, 

12) 

L 

X) 

L 

X) 

LA 

Y) 

+ 

LA 

Y) 

'U, 

LA 

X, 

5, 

8) 

M  VC 

X, 

Y) 

nr 

MVC 

1,10 

1,12(0,10) 
1,12(0,10) 
1,12(2, 10) 
1,12(4,  10) 
1,12(2,10) 

12(27, 10), 8(5) 

12  (27, 10)  ,  12  (10) 


The  Compiler  sets  up  a  register,  e.g,  ,4,  with  the  value 
4096,  and  will  provide  it  for  the  index  field  in  the 
instruction.  A  warning  message  will  be  emitted  to  that  effect. 
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Error  condition:  the  symbol  needs  an 
the  instruction  contains  no  place  for  cne. 


i  nd  ex 


but 


field 
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The  fix  for  this  is  as  follows: 

Heplace  Inline  (”41”,  1,  2,  Y)  with  the  pair  of 
instructions  Inline  ("41”,  1,  0,  I)  and  Inline  {"41”,  1,  0,  2, 
0),  and  replace  Inline  (”D2”,  1,  10,  X,  Y)  with  the  pair  Inline 

1,  0,  Y)  and  Inline  ("02”,  1,  10,  X,  1,  0). 


Iirplementatica  Note. 

The  System/ 360  Compiler  leaves  registers  0  through  3  free 
between  statements.  These  registers  may  be  used  as  scratch 
registers  for  Inline. 

PEP/1 1  Formats. 


I nline 
Inline 


I nline 

I nline 
Inline 


(op,  destination  mode,  destination  register  [/■’^’afue]) 
Single  Operand  =^/ 

(op, source  mode,  source  register,  destination  mode, 
destination  register  f , valuef , value  ]  1) 

/*  Doable  Operand 

(op, destination  mode,  destination  register  f, value]) 
/^  Jump 

(op, offset)  /*  Branch  ^/ 

(data)  /t  emit  1  word  inline 


The  02  parameter  is  the  PDP/11  operation  code  for  the 
desired  instruction.  Single  operand  and  -jump  instructions  have 
a  nine  bit  operation  code.  The  double  operand  format  reguires  a 
four  bit  operation  cods  while  the  branch  instruction  operation 
codes  are  eight  bits.  The  source  and  destination  each  consist 
of  a  mode  and  register  pair.  Each  of  the  mode  and  register 
specifications  must  be  in  the  range  zero  to  seven.  The  mode, 
register  pair  indicates  which  of  the  available  PDP/11  addressing 
modes  and  hardware  registers  is  to  be  used  in  locating  the 
operand.  The  v  a  I u  s  parameters  are  coded  only  when  required  by 
the  mods  of  the  source  and/or  destination.  Offset  indicates  how 
many  words  are  to  be  skipped  if  the  branch  condition  is 
successful.  The  offset  must  lie  in  the  range  -128  to  +127. 


The  02  ,  value  ,  o  f  f set  and  data  parameters  must  be  coded 
as  constants.  However,  the  source  and  destination  parameters 
may  be  either  constants  (i.e.,  a  mode  and  register  for  each)  or 
variable  identifiers.  When  they  are  coded  as  variable 
identifiers  the  compiler  will  generate  the  mode,  register  and 
displacement  necessary  to  access  the  current  value  of  the 
variable.  Note  that,  if  the  variable  is  declared  in  neither  the 
Iccal  nor  global  scope,  the  compiler  will  generate  instructions 
to  establish  addressability  to  it  in  register  two,  A  warning 
message  is  produced  if  both  the  source  and  destination  are 
variables  which  require  addressing  code  to  be  generated  since 
the  compiler  will  use  the  same  register  in  setting  up 
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Examples  of  Inline  b e PD?/1  1  . 


are  in  e 
constant 
constant 
ccnstan  t 
ccnstan  t 
constant 
constant 
constant 
constant 
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constant 
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following  examples  assume  the 
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CLH 

=  ” (3)  50”; 
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COM 
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MOV 
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CMP 
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JMP 
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BR 
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BNS 
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RTI 

=  " (3) 000002”; 

REG 
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IND 
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dec! 


are 
declare 


(0 
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to  1 300 ) 
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PCP/11  Restrictions. 
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98.  <executable  statementi  : 


;=  <selector>  ;  <altarnatives> 

<ex9cutable  statement  list>  end 


1  15.  <select cr> 

1  16. 


=  if  <expression> 

I  case  <index  type>  tag  <expre3sion> 
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Examcles  of  selections.. 


case  Months  tag  Cur xent_ tenth ; 


September: April: June: November: 

N umber_of_days  :=  30; 

Pebr uar y : 

If  Current_year  mod  4  =  0; 
then:  Nuiaber_of_ days  : 
else:  Number___of_days  : 

end 
else: 

H  u m  b  er_o  f_  da  y  s  : =  31; 


29; 

28; 


era 


Restrictions . 
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I  irplementat  ion  Quirk. 


The  coapile-ti 
selections  (aore 
the  grammatical  spe 
problem  arises,  t 
several  smaller  one 
statement. 


me  p 
than 
cif  i 
he 


arse  sracK  ca 
about  15  to 
cation  is  ri 
case  selecti 
each  of  i?hi 


n  cverflo:^ 
20  cases) . 
ght  recurs 
on  should 
ch  is  sel 


f  or 
Th 
ive. 
be  b 
ac  te 


1  ar  Q9 


cas  9  o: 


IS 


IS  c e c a  u s e 
Shen  this 


,r!!rV«rsf-jS; 


roken  up 
d  by  an  .  -, 


E f f icie ncy  Note 


Case  selection 
has  one  entry  for  e 
should  avoid  spar 
example,  the  censtr 


s  ar 
ach 
se 
net 


e  implemented 
value  in  the 
branch  table 


using  a  br 
selection  t 
s  whenever 


anen 

ype. 

po 


w  h  1C  a 


table 
Programmers 
ssible.  Por 


■z<e^-Sgm 


case  character (1 

*  A  >  :  ^  E  ’ :  ’  I  ’  :  ^ 

end 


)  ta 

0’ 


g  Latter; 

U  ’ :  Vowel :  =  Tr 


ue. 


‘  1=. 


general es 


a  branch 
th( 

character  { 1 )  ; 


used.  Here,  th^ 


tabl 

typ 


e  with  256  en 
p  f ' A ’  to  '  Z 


{ '  V 


tries,  only 
’ )  should  b 


o  o 
e  us 


which  are 


ed  instead 


.1.  ili.  i  >i- 

•  •  •  *  » V  - 

'v 


u'Sfri; 


52 


3 . 7 »  4 , _ Co a pounds, 

99.  <exscurable  statem0nt> 


<coinpc  urid> 


22.  <coinpoand>  begin  <scope  blcck>  ent 


123. 
1  24. 


cycle  <ex9cutable  statement  iist>  end 

<do  head>  ;  <6xecutable  statement  list>  end 


System  Language  Compcunds  are 
or  iterative  {cycle,  do)  execution 
may  optionally  return  a  value. 


use  a 
of  a 


for  sequential  (begin) 
statement  list,  and  they 


3 . 7 . 4 , 1 .  B eqin  Comccunds. 


122.  <compound>  begin  <scope  blcck>  end 
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Example  of  a  begin  compound. 


macro  Interchange  (k,  Y 
begin  /*  interchange 
declar  e 

(0  to  100}  (Le 
Temp  : =  Y  ; 

Y  :=  X; 

X  :=  Temp 


)  1 

values  o: 


and  Y 


mp) 


end 

end  macro; 


Froqraraminq  Note^ 
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3. Cycle  Compoum 

123,  <corapound>  cycle  <executable  statement  list>  end 
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at  the  beqinninq  of  the  cycle  coiapcund,  the  effect  of  the  Pascal 
ccnstruct  do  while''ls  a  chieved ;  if  it  is  ac  the  end,  nhe  effect 
of  the  Pascal  repeat  until  is  achieved.  In  general,  any  number 


of  escapes  may  appear  within  a  compound, 
E xample  of  a  cycle  compound. 


cycle  /*  place  GCD(A,S)  in  B 
if  A  <  3; 

then:  Intarch ange  ( A , E)  ; 
end: 

exit  when  A  mod  B  =  0; 

A  :=  A  -  B 

end 


3,7, 4. 3,  Do  Ccmoounds- 


:=  <do  head>  ;  <executabls  statement  list>  end 
126,  <dc  head>  ::=  do  <Yariable  identifierh  :=  <it3ration  ccntro 


124. 

<compound> 

126, 

<dc  head> 

12  7. 

<i terat icn 

128. 

129. 

1  30. 

1  <expressicn>  to  <expression> 
i  <expressicn>  dcwnto  <9xpr3ssion> 
I  each  <index  type> 


The  do  compound  produces  bounded  repetition  of  the 
contained  statement  list.  The  sequence  of  values  for  the 
ccntrol  variable  is  determined  at  the  start  of  the  loop  by  -  the--^' 
selected  fora  of  iteration  control.  An  ordered  list  of  values'’^ 
may  be  specified  by  a  tuple.  If  the  values  are  contiguous,.  theY'h^^S"^ 
may  be  specified  as  an  increasing  or  decreasing  s obrange  . of 
values,  using  to  and  down  to  respectively,  ea ch  specifies  aJ.1^ 
the  values  of  the  indicated  index  type. 
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Examples  of  do  loop : 
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end 


e  r.d 


dc  Trial_colour  Eed  r.c  Violet; 
Try  (Trial_coiouE) 

end 


becrin  /*  initialize  a  character  array 
declare  (’O'  to  ’O-*)  (C)  , 

(0  to  10)  (I)  ; 

I  0; 


do  C  : =  ' C 


:o  '9 


deciraal_diqit  (I)  ;=  C; 


I  :=  I  +  1 


ena 


;Dd 


Ees trictions . 


The  tuple  and  each  fcrms  of  iteration  control  are  not 
i  iiplemented,,  '  1-;:' 


3,7. 4. 4 


Labelled  and  Valued  Conipcunds. 


125.  <compound>  <exit  lahel>  <CGinpcund> 

<  <exit  identifier>  > 


131,  <exit  label>  :  :  =  <  <identifier>  > 

163.  <storaqe  reference>  <escape  type>  ;  <compound> 

164.  <escape  type>  exits  with  (  <type  list>  ) 
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‘t 
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A  compound  may  cpticnally  be  labelled  by  an  exit  identifier ■1:1 


bracketted  by  <  and  >.  The  same  exit  identifier  must  appear  at-'l^;;^^ 
both  the  beqinninq  and  the  end  of  the  compound.  For  .  ease 
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reader,  these  labels  appear  outside  the  "1$^ 


ccmpound;  however,  they  are  semantically  local  to  the  ccmpoundy^'y^^f 


and  may  only  he  referenced  by  an  escape  statement  within  the  ’—^r^ 


compound.  They  provide  the  capability  for  escape  from  tether  l'; 
than  the  closest  enclosirq  ccmpound.  ■ 


A  compound  may  cpticnally  return  a  value.  The  :  value  r  is 
supplied  by  an  exi t  statement,  and  its  type  must  be  predeclared 
in  an  exits  with  clause.  If  the  cempeund  terminates  by  other 
than  a  valued  escape,  its  value  is  undefined. 
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We  will  qive  examples  of  labelled  and  valued 
the  example  section  for  escapes. 
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The  exits  with  clause  is  restricted  as  follows: 

1.  At  most  one  type  may  appear  in  the  -ype  list. 

2.  The  types  are  restricted  to  integer  and  programmer- 
types,  their  subranges  and  pcwersets,  and  pointers. 


3  » 7 . 5 .  Escapes , 


96. 

<€xecutabl€  statement>  : :=  <escape>  <label 

<with  part> 

part>  <conditicn> 

97. 

1  return  <from  par 
<with  part> 

t>  <condition> 

104. 

<escap9>  ::=  exit 

1C6. 

<label  part>  ::=  <  <exit  id6ntifi€r>  > 

107, 

j  <en)pty> 

108. 

<CQndition>  unless  <expression> 

109, 

\  when  <expr9ssicn> 

1  10. 

}  <e[npty> 

111. 

<with  part>  ::=  with  <tuple> 

1  12. 

1  <empty> 

1  13. 

<from  part>  ::=  from  kprocedure  identifier 

> 

1  14. 

j  <  9  m  p  t  y  > 

The  escape  constructs  are  exit  and  return.  Exit  specifies 
escape  from  an  enclosing  compound.  That  is,  exit  ter minares  the 
execution  of  an  enclosing  cycle,  begin,  or  do  compound.  Return 
terminates  executicn  of  an  enclosing  procedure.  ^hen  no  label 
is  specified,  escape  is  from  the  closest  such  enclosing 
ccnstruct.  Escapes  may  be  unconditional,  or  may  depend  on  the 
satisfaction  (whe  n)  or  denial  (unless)  of  a  condition. 
Conditional  escapes  may  be  used  for  early  termination  of  a 
compound,  and  are  the  normal  way  of  terminating  a  cycle 
ccmpound. 

Return  and  exit  escapes  may  optionally  return  values  whose 
types  have  been  predeclared.  The  with,  clause  may  be  used  to 
specify  the  escape  values.  Procedures  may  have  their  return 
values  assigned  tc  the  return  variables  (defined  in  the  data 
block  name)  prior  to  the  escape,  rather  than  specifying  them  in 
^  hitj}  clause. 
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Examples  ot 


escapes 


rstarn  with  Error_messaq€ ; 

return  from  Main_proc€durs  when  Error  with  Error_nie33ags ; 
exit  <Allocate>  with  Next_block; 

Examples  of  Compounds  and  Escapes^ 

The  first  routine  sorts  a  vector  A  using  a  bubble  sort 
begin 

declare 

(2  to  N)  (Last_value) , 

(1  to  N)  (Index)  , 

Boolean  (Sorted)  ; 

Last__valu€  :  =  N  ; 
cycle 

Sorted  True; 

do  Index  :=  1  to  (Last_value  Last_value  -  1) ; 
if  A  (Index)  <  A  (Index  +  1)  ; 

then:  Interchange  (A  (Index),  A(Index-i-l)); 

Sorted  :=  False 

end 
end : 

exit  when  Sorted  i  Last_value  =  2 

end 

end 

The  following  macro  does  a  linear  search  on  vector  A, 
returning  the  index  in  A  of  the  lockup  value  (passed 
in  as  a  parameter).  If  the  lookup  value  is  not  present, 
zero  is  returned  */ 

macro  Lookup  (Value)  ; 
exitswithfOtoN); 
begin 

declar  e 

(0  to  N)  ( Inde X )  ; 

Index  ■;  =  0  ; 
cycle 

Index  :=  Index  +  1; 

exit  when  Index  >  E  with  0; 

exit  when  A  (Index)  =  Value  with  Index; 

end 

end 

end  macro; 


Programming  Note. 

Exits  and  returns  through  many  levels  of  compounds  or 
procedures  should  normally  be  avoided  as  they  can  obscure 
program  readability. 
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_ A.SSS  r  tions  . 

1C2.  <execut.ablG  statemGnt>  ::=  assart  <taple  eisiiient> 

The  System  lanquaqe  allows  the  programmer  to  make 
assertions  about  his  program.  Khen  the  toggle  A  is  on,  the 

compiler  generates  code  to  verify  that  the  tuple  element  is 
true,  and  tc  produce  termination  of  the  program  with  a  ran_tiae 
error  message  if  the  assertion  fails.  When  the  toggle  A  is  off,  . 
the  compiler  ignores  the  assertion,  leaving  it  in  the  listing  as 
dccumentatior. . 

We  give  an  example  of  the  use  cf  assertions  in  a  macro 
Binary_search,  which  looks  up  a  parameter  Value  in  the  vector:  A,  ■ 
sorted  in  ascending  order.  When  the  lookup  succeeds,  the  index  ■ 
into  A  of  the  value  is  returned;  otherwise,  zero  is  returnsd.  ■ 
The  reader  can  verify  that  each  assertion  follows  -from 
initial  conditions  cr  frcm  the  preceeding  assertion  and  the  code  ■ 
which  follows  it.  The  proof  thus  follows  by  keeping  in  aind-:^:- 
that  at  any  time  the  required  value-  cannot  be  outside  the  range 
Bcttom+1  to  Top  inclusive, 

Evaaple  of  A ssertions . 

constant  N  =  15; 
declare 

array  ((1  to  N) )  of  (0  to  1000)  {A)  ; 

macro  B inar y_search  (Value) ; 
exits  with  (0  to  h)  ; 
begin 

declare 

(1  to  N)  (Top,  Ecttcm,  Index) ; 

Top  : =  N ; 

Bottom  :=  1; 
cycle 

assert  Bottom  <=  Top; 

Index  :=  (Top  +  Ecttoa)/2; 
assert  Index  >=  Bottom  S  Index  <=  Top; 
exit  when  A  (Index)  =  Value  with  Index; 
if  A  (Index)  >  Value; 

then:  Top  Index  -1; 
else:  Bottom  ;=  Index  -s-  1; 
end; 

assert  Bottom  <=  lop  +  1; 
exit  when  Bottom  >  Top  with  0; 

end 

end 

end  macro 

PCP/11  Restric  tions 

Assertions  are  always  treated  as  comments. 
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3.7.7. _ Compiler  Control  Toggles. 

Soma  functions  of  the  compiler  may  be  changed  frcm  cns 
ccmpilation  tc  another.  Since  these  functions  are  not  earn  of 
the  program  itself,  they  may  only  be  controlled  from  within 
comments.  The  appearance  of  a  %  or  n--  within  a  cemmant 
specifies  that  the  next  character  is  a  control  character.  There 
are  254  control  toggles,  cerresponding  to  the  255  valid  ZSCDIC 
character  codes  less  the  codes  for  blank  and 


Each  toggle  may  have  the  value  True  or  False.  The  % 
ccntrol  is  used  to  set  the  toggle  corresponding  to  the  control 
character  to  True,  and  %-<  is  used  tc  set  the  toggle  to  False. 

Examples  of  Setting  Toggles. 

TcL  sets  the  toggle  L  to  True  - - - - 

/*  %-»E  sets  the  toggle  E  to  False 

Tcggles  _  w  h  i  c  h_  a_r  e_c_u  r  r  e  ntly  recognized  by  the  compilers. 

The  following  tcggles  are  recognised  by  the  compilers;  all 
ethers  are  ignored.  We  explain  each  valid  one,  indicating  its 
initial  value  at  the  start  of  each  compilation  block. 

A:  Generate  Code  to  test  validity  of  Assertions. 

(Initially  False).  (This  is  ignored  on  the  PDP-11). 

C:  Produce  a  formatted  printcut  of  the  symbol  table  and  type 
table  at  the  end  of  each  scope  block,  data  block,  or  context 
block.  (Initially  False) . 

E:  Produce  an  interlisting  of  the  emitted  code  for  each 

statement.  (Initially  False). 

L;  Produce  the  program  listing.  (Initially  True).  ■ 

M:  list  expanded  form  of  macros  when  they  are  called. 

(Initially  False) ,  .  ’’ i~ 

C:  (System/360  only):  Perform  peephole  optimization  of 

assignments.  (Initially  True), 

F;  Print  productions  as  the  parser  makes  each  production 
reduction.  (Initially  False).  _ 

8:  (System/360  only):  Generate  code  to  check  the  range  of  values  - 
on  assignment,  case  selection,  and  array  subscription.  Code  is 
net  generated  if  the  operand  ranges  guarantee  that  the  value  is 
in  range.  Consequently,  uninitialized  values  may  not  be  -tk’ 

detected.  (Initially  True),  ‘w 

S:  (PDP/1  1  only):  Convert  all  constant  character  strings  to  -  the 'In-/ 
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7-bit  ASCII  coda.  (Initially  True),  Sea  Appendix  VIi  for  the 
EBCDIC  -  ASCII  translations  used  in  the  SUE  System  Lanquage. 

U:  (Systeai/360  only):  Generate  code  to  chech  the-  range  of  values 
on  case  selection  even  if  the  operand  ranges  guarantee  that  the 
value  is  in  range.  This  prevents  range  errors  for  uninitialized 
values.  (Initially  True). 


3,7.8. _ Type  Conversion.  (Not  in  Machine  Independent  Subset)  , 

<storaqe  reference>  ::=  typed  <brief  type>  (<tupl€>)  'f; 

In  isolated  circumstances,  the  programmer  may  be  forced  to 
violate  the  System  Language  type-checking  rules.  The  typed  t-- 
construct  directs  the  compiler  to  treat  a  value  as  if  it  .  had. 
been  declared  of  the  specified  brief  type.  The  asscciated'~^~" 
storage  access  method  is  recomputed  from  the  brief  type,  lea v in g  y: 
cnly  the  address  and  value  of  the  tuple  unchanged.  .i-.^ 

Examples  of  the  ryped  construct.  ^ i 


assume  the  context  of  these  declarations.  */ 
type  Fixed  =  bit  (32); 
declare 

character  (80)  (A), 

pointer  to  Fixed  (P) , 

Fixed  (X  ,  I)  ; 
treat  A  as  an  array 
typed  array  ({1  to  80)) 
treat  P  as  a  Fixed 
I  ;=  typed  Fixed  (P)  + 


of  8 
of  c 
value 
X  ; 
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APPENDIX^  I 


CO^iPILATION  AND  EXECUTION  OF  SUE  SYSTEt!  LANGUAGE  JOES 


J_2 _ Funning  SUE _ System  Language  Jobs» 

This  appendix  describes  those  cataicgued  procedures  whicii- 
have  been  written  to  facilitate  the  filing,  compilation  and 
execution  of  SUE  programs  at  the  University  of  Toronto  Computer.-, 
Center.  .  _ ,  , 

The  following  catalogued  procedures  are  available:  .  .  . 

-  --  SUEFILE  -  Piles,  lists,  and  punches  ’  1. 

SUE)  System  Language  Program,  Context,  and  Data  blocks.  .1 

SUEPURGE  -  Deletes  previously  filed  ' 

SUE  System  Language  Program,  Context  and  Data  blocks.  ' 

SCJE360C  -  Compiles  a  program  under  the  SUS/3oO  compiler.  .  , 

.  SUE360CG  -  Compiles  a  program  under  the  SDS/360  compilex  ' -li 
and  executes  the  prcgram,  .lA; 

•  .  snE360G  -  Executes  a  program  previously  compiled  under  the 

SUE/360  compiler,  '  ::-It 

SUE11C  -  Compiles  a  program  under  xhe  SUS/11  compiler. 

SUE11CS  -  Compiles  a  program  under  the  SDE/11  compiler  and  lr|;g 
simulates  its  execution  {by  running  the  SUE  program  under  ■ 
a  PDP-11  simulator)  . 

■  .  '0%-: 

SUEIIS  -  Simulates  the  execution  (by  running  a  PDP-11 
simulator)  of  a  program  previously  compiled  under  the 
SDE/11  compiler.  . 

SUE11CG  -  Compiles  a  program  under  the  SDE/11  compiler  . 
and  tranfers  it  to  a  magnetic  tape.  The  program  may  then 
be  loaded  from  magnetic  tape  into  a  PDP-11  and 

executed  on  the  PDP-11.  .'1)1^ 

■  SUE11G  -  Transfers  a  program  (previously  compiled  by  the 
SUE/11  compiler)  to  a  magnetic  tape.  The  program  may 
then  be  transferred  tc  and  executed  on  a  PDP-11,  “  ,  ■v'riJS.lS 
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1  »  1  . _ g^.nina  a,  Job.> 

To  run  a  lot  submit  a  deck  of  the  following  form, 
i c  b  card 

//  niinn  ,  aaa )  ^  ’  <last  name  > ,  <f  irst  initial>’ 

<cards  for  iob> 

// 


(nnnn  and  aaa , are  the  account  number,) 

The  <cards  for  iob>  are  cne  cr  more  repetitions  of  the  sets  of 
cards  described  belcw. 


1.2. _ Filing  One  Prcgraa,  Data,  or  Context  Block. 


//  EXEC  SUEFILE 
$$OUT_NAME  {<blcck>)  =<nanie> 
<block  to  be  filed > 

$$EOF 


<block>  must  be  PBCGBAM,  BATA,  cr  CONTEXT, 

<name>  is  3  to  7  letters.  A  program  block  should  be  filed  wirh 
the  same  name  as  its  data  block.  Context  blocks  may  not  be 
filed  under  the  same  name  as  data  blccks.  The  first  two  letters 
of  a  file  name  must  be  the  two  letter  code  assigned  to  you 
(usually  your  initials) . 

<block  to  be  filed>  must  also  commence  with  PROGBAdj,  CONTEXT  or 
BATA  and  end  with  a  _j_  (a  qcal  pest). 

Example . 

This  iob  files  (and  lists)  the  BATA  and  PRGGHAI1  blocks  for 
a  procedure  called  MAIN;: 

iob  card 

//  nnnn, aaa)  JONES  ,  B ’ 

//  EXEC  SUEFILE 
$$ODT_NAME (BATA) =BJM AIN 
DATA  MAIN; 

$$EOF 

//  EXEC  SUEFILE 
$$OUT_NAME (PEOGRAM) =EJMAIN 
PROGRAM  MAIN; 

PRINT  FACTORIALS  -■/ 

DECLARE 

INTEGEe_TYPE  (I,J)  ; 

PUT_QUOTED_STRING  {’ FACTORIALS ’ )  ; 

PUT_CHARACTER  (NSN__LINE)  ; 

J  :  =  1  ; 

DO  I;=1  TO  7; 
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PUT_INTEGER (I) ; 
PUT_QOOTED_SieiNG  (  ’  ’  =  *); 

J:  =  KULTIPLY  (J  ,  I)  ; 

PUT_INTEGER  (J)  ; 

FUT_CK  AS  ACTES  {NEw-_IINE)  ; 

E  N  D ; 

_ 

$$EOF 


Ordinarily,  all  blocks  are  filed  separately.  However,  it. 
is  possible  to  file  more  than  one  block  per  SUE7ILE  step.  For 
example,  the  data  and  program  blocks  of  the  above  example  are 
filed  together  as  BJBOTH  in  the  folicying: 


//  EXEC  SUSEILE 
$$OUT_NAME (DATA) =BJBCTH 
DATA  HA IN; 

FEOGRAH  HAIN; 

< source  as  in  above  exaEple> 

_  i_ 

1$E0F 


The  SUBFILE  procedure  lists  blocks  as  well  as  filing  them. 
To  file  a  block  without  listing  it,  replace  the  card 
//  EXEC  SUEFILE 


by  the  card 
//  EXEC  SUEFIIEO 

1,3.  Listing  SUE  Files. 


An  existing  SUE  file  can 
following  gob  step: 


be  listed  by  executing  the 


//  EXEC  SUEFILE 
$$IN_NAME {<block>)  =<name> 

SSlIST 

In  this  step,  <block>  must  be  DATA,  CONTEXT 
and  <nam6>  must  be  the  name  cf  the  file. 


or 


FBOGBAM, 


ii 


^te_:  This  gob  step  is  n^  terminated  by  $$EOF.  The  following 
is  an  example  which  causes  the  listing  or  the  file  conraining 
t  data  block  BJMAIN  that  was  filed  in  the  example  of  section 


1.2. 


mm 


//  EXEC  SUEFILE 
$SIN_NAHE (DATA) =BJMAIM 
$$LIST 


1 .4. 


Punching  SUE  Files. 

An  existing  SUE  fils  can  be  punched  onto  cards  by  executing 
the  fcllcwinq  icb  step; 

//  EXEC  SUEEIIE 
SSIN_NAME (<block>) =<naas> 

S$DECK 


In  this  step  <block>  must  be  DATA,  CONTEXT,  or  PHGGEAil,  and 
<name>  must  be  the  came  cf  the  file.  Note  that  this  job  step  is 
net  terminated  by  SIEOE, 

The  lob  step  shewn  above  causes  the  file  to  be  listed  as 
well  as  punched.  To  a  void- li sting  while  punching  a  deck,  nhe 
first  card  should  be  replaced  by:  _  _ 

//  EXEC  SUEEILEO 


The  following  is  an  example  which  causes  the  file 
containing  the  data  block  EJEAIN  to  be  listed  and  punched: 

//  EXEC  SUEFIIE 
$$IN_NAME (DATA) =3JMAIN 
$$DSCK 


1.5. _ Deleting  SUE  Files. 


An  existing  SUii  file  can  be  deleted  by  executing 
following  iob  step; 

//  EXEC  SUEPUBGE 
$$SCSATCH (<block>)  =<narae> 


More  than  one  file  can  be  deleted  in  a  single  job  step  bj  ‘ 
repeating  the  second  card.  In  this  job  step,  <block>  must  be  - 
DATA,  CONTEXT,  or  PROGRAM,  and  <name>  musr  be  the  name  of  a. 
file.  Note  that  the  job  step  is  not  terminated  by  3SSCF.  j 

The  following  is  an  example  which  causes  the  purging  of 
file  called  XSEAT.  ‘ 


//  EXEC  SUEPUSGE 
SSSCRATCH (DATA) =XSF AT 


Load  moGules  may  be  scratched  using  the  SUSPURGS  procedure. 
The  follcwing  deletes  the  load  module  X5FAT  from  the  SUS/360 
Icadmodulelibrary. 
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//  EXEC  SUE  PURGE 

$$SCR ATCH {LOAD_EODU  LE)  =XSF  AT 


To  delete  a  SUE/11  lead  module  code  L±B=11 


on 


:he 


card.  For  exaaipls,  the  fcllowinq  piirqes  load  module  XSeAT 
the  SOE/11  load  module  library. 


i-  A  H. 

f  rooi 


//  EXEC  SUEPUEGE^LIB=11- 
Sis CRATCH (L 0 A D_ MODULE) =XSE AT 


1.6. _ Compiling  and  Executing  SUE  Pregrams. 


The  procedures  SUE  360CG  and  SUE  1 1CS  are  used  to  compile  and 
execute  SUE/360  and  SUE/11  programs,  The^  program ^ m ust  have  been 
previously  filed  using  the  SUSFILS  procedure. 


The  input  to  the  compiler  is  one  or  more  compiler  control, 
records  of  the  form: 


<block>  <nair,e>  /toggle  settings/ 


where  <block>  isust  be  PHCGRAfl^  DATA  or  CONTEXT  and  <naa€>  is  the 
name  of  an  existing  SUE  file;  /toggle  settings/  can  be  used  to 
initialize  the  setting  of  compiler  toggles.  For  example,  ... -<1.- 
initializes  the  list  toggle  to  false  and  as  a  result  the  blcc-k 
is  not  listed  as  it  is  ccrnpiled. 


X  - 


Examples, 


This  example  will  compile  and  execute  the  program  which  has:^i|i* 
been  filed  under  the  name  BJMAIN. 


Using  the  SUE/360  compiler  and  executing  on  the  360. 


//  EXEC  SOE360CG 
DATA  BOOT360  -L 
DATA  BJMAIN 
PROGRAM  BJMAIN 


Mii 
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//  EXEC  SUE  lies 
DATA  ROOTS  I M  --L  ^S 
DATA  BJMAIN.  -S 
PROGRAM  BJMAIN  -^S 
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Mctej.  a)  The  S  toqqls  is  set  to  false  since  the  PDP-11  simulator 


currently  accepts  only  EDCDIC  character  strinqs. 


h)  The  load  module  will  contain  the  procedure  called 
and  I/Q  support  routines  as  well  as  the  procedure  main. 


:00T 


r'cr  a  successful  compilation^  data  and  program  blocks  must 
be  presented  tc  the  compiler  in  the  correct  order.  This  crder 
is  dictated  by  the  static  nesting  cf  the  procedures.  The 
(recursive)  crderinq  rule  has  two  parts: 


(a)  Each  program  blcck  must  be  preceded  by  its  own  data 
block,  and  each  data  block  must  be  preceded  by  the  data  blocjc  of 
its  enclosing  procedure  (i.e.,  the  procedure  in  which  it  was 
declared) . 


(b)  Each  program  blcck  must  be  - -fallowed -  _ by-  - the _ program- 

blocks  of  its  enclosing  procedures.  (A  program  blcck  for  an 
enclosing  procedure  can  be  emitted  if  it  is  not  to  be  compiled. ) 


This  ordering  rule  can  be  restated  as  rollcws. 


The 


aaha 

and  program  blocks  of  a  procedure  should  "sandwich”  (or  if  you- 
like  " parenr hesize" )  the  data  and  program  blocks  of  all  enclosed 
procedures.  (This,  is,  of  course,  a  recursive  sandwich.)  The 

program  blcck)  of  a 


bottom  slice  of  bread  (a 


sang wica 


may 


optionally,  be  omitted. 
Example . 
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or  as: 

//  EXEC  SUE  1  ICS,  WAi']E=<nafiie> 


The  specified  naaie  of  the  load  module  is  3  to  7  letters  aad 
should  beqin  vith  your  two  letter  code.  (This  name  may  be  the 
same  as  a  file  name  created  by  SUEFILE.)  Separaxe  libraries 
have  been  provided  for  SUE/360  and  SUS/11  load  modules;  hence 
load  modules  may  be  filed  under  identical  names  using  the 
SUE360C  and  SUE  1  1C  procedures. 

Examples . 


These  examples  are  the  same  as  the  preceding  examples  -  ii 
except  that  the  load  module  will  now  be  saved  under  the  name  ^ 
BJiiAIN.  This  saved  load  module  may  be  executed  later-using — -the“~-~h 
SDE360G  or  SUE  IIS  procedure,  as  described  belov.  -  : 'h/:. 


Using  the  SUE/360  compiler: 

//  EXEC  SUE360CG,NAME^BJaAIN 
DATA  EOOT380 
BATA  BJdAIN 
FBOGEAH  EJbAIN 


Using  the  SUE/11  ccirpilsr  and  the  PDP-11  simulator: 
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